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su instalacion a traves de un 
simple cable. 

Nota aclaratoria 

En el numero 77 (pagina 44), 
«Especial Ampliaciones» de la 
seccion de Infobytes, se decia 
que el periferico Anta 64, de 
MHT Ingenieros, convierte un 
Amstrad CPC 664 en un 6128 

Dicha informacion no es del 
todo exacta. La ampliacion de 
memoria no proporciona al 664 
los comandos y el Sistema 
Operativo ampliado que 
caracterizan al 6128. 

El Anta 64K.3 es una 
ampliacion de memoria de 64 K 
con tres opciones distintas: 

— Buffer de impresora, que 
almacena y envfa la informacion 
a la impresora, dejando el 
ordenador libre para otros 
trabajos. 

— Ampliacion de memoria, 
en la que se pueden leer datos, 
grabarlos, etc. 

— Ram-Disk, el cual se 
comporta como un disco RAM 
de acceso muy rapido, 
incluyendo funciones para 
Acceso Aleatorio. 

La umca limitacion del Anta 
viene dada por las propias 
caracteristicas de este aparato. 
En cuanto se apague el 
ordenador los datos que se han 
incluido en la ampliacion Ram 
de la memoria se perderan. 


en diez megabytes se pueden 
almacenar tres mil paginas de 
texto. Ademas, el acceso a los 
datos es muy rapido, 
concretamente 85 ms. 

Como colofon de todas estas 
aplicaciones, el PCWHD va 
acompanado de unas claras 
explicaciones que hacen muy 
sencilla su utilizacidn, asi 


Nuevo disco duro 
para el PCW 


La empresa ASD Peripherals 
ha creado una unidad de disco 
duro para el Amstrad PCW. Su 
capacidad es de diez o veinte 
megabytes y va acompanada de 
una version modificada del 
CP/M Plus, Locoscript y varios 
programas mas de utilidades 
que aumentan las posibilidades 
de uso del sistema. 

Con todo esto, el PCW puede 
emplearse como algo mas que 
un simple procesador de textos. 
Al aumentar su capacidad de 
almacenamiento puede 
convertirse en una buena base 
de datos y en un importante 
sistema de oficina, teniendo los 
programas apropiados, ya que 


Zafiro se suma 
a la reduccion 
de precios 

Una excelente noticia para 
los usuarios de ordenadores 
domesticos: los responsables de 
la seccion de software de la 
compama Zafiro han aplicado 
una considerable reduccion en 
el precio de la totalidad de los 
programas de su catalogo, con 
lo que dicha casa de 
distribucion se suma a las 
ultimas tendencias 
generalizadas del mercado, y 
viene a ampliar la gama de 
programas a precios 
asequibles. 

Segun han manifestado los 
propios directivos de Zafiro, 
esta idea de la baja vema 
fraguandose durante algun 


tiempo en la compafna, y el 
hecho de que otras casas se 
adelantaran en la puesta en 
marcha de la disminucion de 
los precios, les ha obligado a 
modificar ligeramente su 
estrategia y a acelerar su 
realizacion. 

De esta forma, las medidas 
tomadas por Zafiro pasan por 
la creacion de un nuevo sello 
de software, Cobra, y por la 
conservation de la tradicional 
firma Zafichip, aunque con 
precios mas bajos y asequibles 
para sus tftulos. 

En el sello Cobra se incluiran 
la totalidad de los grandes 
exitos que Zafichip ha 
presentado hasta el momento 
(«Commando», «Trap Door», 
«1942», «Nosferatun», etc...), 
titulos a los que se iran 
sumando las proximas 


novedades de companias tan 
prestigiosas como Piranha o 
Elite. El PVP de todos estos 
programas sera de 875 pesetas 
Por otra parte, Zafiro ha 
manifestado la intention de 
que, por razones de prestigio, 
el sello Zafichip siga existiendo, 
por lo que en el se incluiran 
los programas que, a juicio de 
la compama. posean una 
calidad superior a la del resto, 
y que esten llamados a 
convertirse en superexitos. 

Este tipo de programas 
tambien vera reducido 
considerablemente su precio, 
el cual quedara establecido en 
la cifra de 1.200 pesetas. 

Afortunadamente, cada vez 
se nos ponen mejor las cosas a 
los usuarios y el software 
continua haciendose mas 
asequible para todos. 


I l/.S / rt U) 

























Atari relanza 
su gama 

de productos ST 




El miercoles 8 de abril, 
Ordenadores Atari, S.A., a la que 
podnamos llamar Atari Espana 
para entendernos, presento, o 
mas bien se podria decir 
represento, su gama de 
productos ST. Se trata de unas 
maquinas muy prometedoras, 
basadas en uno de los 
microprocesadores mas 
avanzados del mercado: el 
Motorola 68000 corriendo, nunca 
mejor dicho, a 8 MHz. Como 
atractivos adicionales, los ST512 
y ST1040 incorporan medio 
mega y un mega de memona, 
respectivamente, y un entorno 
de usuario basado en el Gem, lo 
mismo en el Amstrad PC, pero 
con la ventaja a favor de Atari 
de una velocidad mucho mayor, 
y la desventaja de que el Gem 
se encuentra en Rom, por lo 
que incluir posteriores versiones 
de este entorno grafico de 
trabajo podria ser problematico. 
Por lo demas, pensamos que 
estos ordenadores, para las 
prestaciones que tienen, se 
ofrecen a un precio por demas 
competitivo. Por ejemplo, el 
ST512, sin monitor, pero con 
teclado, unidad central, raton y 
software, cuesta 80.000 ptas. 

La represen tacion, para ser 
justos, tambien dio algo nuevo e 
interesante por parte de Atari. 
Nos referimos a la nueva serie 
de maquinas Mega 2 y Mega 4, 
que, realmente, son casi, casi 
como los otros, excepto por el 
hecho de que poseen mas 
memoria, 2 y 4 megas, y por 
un aspecto mucho mas modular 
y profesional. No obstante, la 
inclusion en la serie Mega de un 
chip especialmente dedicado al 
proceso de graficos, lo convierte 
en adecuados candidates a 
formar parte de la caterva de 
sistemas dedicados al arte o al 
CAD. Ademas, en este tipo de 
aplicaciones es esencial que el 
software sea «amistoso», ambito 
donde el raton y el Gem tienen 
mucho que decir. De momento, 
no hay noticias oficiales ni 
definitivas acerca de los precios 
de estas nuevas maquinas. Atari 
Espana nos ha facilitado una 
lista del software ya disponible 



Estadistica para el PC 


Micro Mouse ha 
comercializado una nueva 
herramienta de trabajo para el 
programa de estadistica 
SPSSx. Con ella es posible 
reali/ar automaticamente las 
tfpicas funciones de gestidn de 
sistema que sc reali/an con 
dicho programa, sin necesidad 
de tenor experiencia ni 
conoci nicntos espeeiales del 
SPSSx. 

Como todo lo relacion.ido 
con el SPSSx, cl SPSSx Trad. 
esta indicado para los 
compatibles de IBM. entre 
ellos cl Amstrad PC. 

Entre las tareas concretas 
que rcaliza sc cncucntran la 
posibilidad de general 
informes diarios, scmanalcs o 


tnensuales sobre el 
funcionai liento del sistema. 
con un gralico, como ejemplo, 
de los fallos de acceso 
al disco. 

Otra de sus luncioncs cs 
documentar los problcmas de 
explotacion an como 
planificar las ainpliacioncs del 
equipo de una in tnera 
(oherente 

En cuanto a las tareas de 
gestidn diarias, i\ udu i 
automati/ ir rtlti las como 
detect ion dt ailomalfas en cl 
sistema ck seguridad, inlortncs 
sobre tamaho v antiguctltid tie 
los ficheros, asignacion de 
prioridades y cualquier luncidn 
disenada ptir el responsable del 
sistema. 


para sus ordenadores, y, entre 
eso y lo que hemos visto, se 
puede decir que estas maquinas 
estan arropadas por una gran 


cantidad de buen software, sin 
Uegar, evidentemente, al 
numero de programas de que 
dispone IBM. 


AMSTRAD Srmamt 5 














Ordenar los icheros 

Por: David Sopuerta 

En un disco magnetico se pueden guardar un monton de cosas, aunque 
parezcan tan pequenos como son los del Amstrad CPC. Toda esta 
informacion necesita ser tratada convenientemente para no perder ni un solo 
bit y, ademas, estar ordenada de una manera tal que no resulte dificil a 
nuestro ordenador acceder a ella. 


El Amstrad es, solamente, una encantadora 
maquina que se limita a obedecer fielmente, eso 
si, todas las ordenes que le demos, siempre que 
esten escritas correctamente y pueda 
interpretarlas sin error. Queremos decir con esto 
que vamos a ser nosotros los que ordenaremos y 
trataremos realmente la informacion contenida en 
un disco 

En algun que otro articulo anterior vimos poco 
a poco una de las formas de pasar pogramas 
desde la memoria central del ordenador a la 
unidad de disco o cinta, o en sentido contrario: 
SAVE y LOAD se encargaban de hacerlo. 


Ahora bien, ^que tipo de informacion era la 
que trasvasabamos de un sitio a otro? Hay que 
admitir que estabamos bastante limitados. Solo 
podfamos pasar dos tipos de ficheros: programas 
escritos en Basic o contenidos binarios de las 
distintas direcciones comprendidas en una 
determinada zona de memoria. ,:C6mo lograra el 
ordenador acceder a ella correctamente? Dentro 
del disco hay unos sectores reservados para 
almacenar ciertos datos de todos los ficheros que 
contiene: nombre y apellidos, direccion, etc. 

No vayamos a pensar con esto que un disco es 
una agenda dispuesta a guardar toda la filiation 








de nuestros amiguetes, jno! Cuando hablamos de 
nombre y apellidos de ficheros nos estamos 
refiriendo concretamente a su «nombre» y a su 
«extension». 

Lo de «nombre» lo tenemos mas o menos 
claro, pero ^que es la «extension» de un fichero 
de disco ? 

Esos sectores reservados para almacenar esta 
informacion estan preparados para guardar, 
ademas del nombre, tres caracteres mas que nos 
van a dar idea de lo que hay en realidad en un 
determinado fichero. ( ; Nos explicamos? 

Si encontramos algo llamado: 

NOMBRE. BAS 


es inmediato pensar que estamos ante un 
programa escrito en Basic. “NOMBRE» es el 
nombre del fichero y “BAS” son los tres 
caracteres de la «extension» a los que antes nos 
referfamos. Estamos seguros que no os parecera 
muy descabellado asignar “BAS” a todos los 
ficheros Basic. 

Extendamos esto a cualquiera, incluso a los 
que de momento nos conocemos su significado. A 
todos los que contengan datos les colocaremos la 
extension o «apellido» DAT, los de texto llevaran 
TXT, los binarios BIN, las pantallas SCR, y asf 
hasta que se agote nuestra imaginacion. 

Solamente os daremos un consejo: las tres letras 
os indicaran «algo», asf que elegidlas 



inciag6n 

adecuadamente para que siempre os recuerden la 
naturaleza del fichero. 

La mayorfa de nosotros ya conocemos 
suficientemente el trabajo de un comando 
generalmente muy utilizado: CAT. Visualiza los 
nombres y las respectivas extensiones de todos los 
ficheros guardados en cualquier disco y ademas 
nos informa tambien del espacio del mimos que 
queda libre. 

Muy bonito, pern con un pequeno 
inconveniente: la informacion que nos presenta 
en la pantalla es la referente a todos, repetimos 
«todos», programas, pantallas, textos, etc., los 
contenidos del disco. Eso sf, ordenados 
alfabeticamente, pero juntos y revueltos. 

Nuestra intencion es, por ejemplo, conocer los 
programas Basic almacenados (los de la extension 
BAS). ^Como lograrlo? 

El Amstrad queda sometido al control de un 
sistema operativo de manejo de disco, llamado 
AMSDOS, desde el mismo momento que lo 
encendemos. Algunas de sus funciones ya las 
hemos visto (LOAD, RUN, etc.) pero nos 
quedan todavfa muchas por descubrir. 

El manejo de los discos lo haremos por medio 
de unos comandos AMSDOS que siempre 
escribiremos precedidos del sfmbolo “I”: son las 
llamadas ordenes externas. Y una de ellas es la 
que se encargara de solucionar nuestros 
problemas. 

Tecleead: 

IDIR 

seguido de RETURN y al momento os 
apareceran en la pantalla todos los ficheros que 
vimos con el comando CAT. Pero esta vez lo 
han hecho de una manera diferente, asf que no 
podemos pensar que se trata de dos ordenes 
equivalentes. 

Demosle mucha mas potencia. Existen unos 
sfmbolos llamados «comodines» que nos van a 
servir para decide al Amstrad que alguna de las 
ordenes del AMSDOS actue sobre un cojunto de 
ficheros que tengan algo en comun, Por ejemplo, 
queremos sacar el «directorio» de todos los 
ficheros con extension BAS tal como dijimos 
antes: esto quiere decir que al comando solo le 
interesa la extension, o sea que el nombre le ha 
de ser «indiferente». 

Para indicarselo al ordenador utilizaremos *el 
sfmbolo asterisco (*), en sustitucion de todos y 
cada uno de los nombres de ficheros y el efecto 
sera el deseado. 

,:C6mo se hace esto en'la practica? Escribid: 
lDIR,“*”.BAS” 

y observareis la diferencia de lo que nos aparece 
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ahora en la pantalla con respecto a lo anterior: 
solo saca los ficheros que tienen BAS por 
extension. 

Si queremos conocer el «directorio» de todos 
los que sean binarios haremos tres cuartos de lo 
mismo: 


|DIR,“*”.BIN” 

Y asi con cualquier extension. Comprobadlo. 

El simbolo comodin astensco sirve para mas 
cosas. Ahora se nos ha antojado ver todos los 
programas que se llamen “PEPITO”, por 
ejemplo. Da igual la extension que tengan, solo 
queremos conocer los que se llamen “PEPITO”. 

En esta ocasion, lo que ha de ser indiferente 
para el Amstrad es el tipo o extension: da igual. 
Asi que lo sustituiremos por el simbolo comodin 
que conocemos y a ver que pasa. Con: 

IDIR,“PEPITO.*” 
lo comprobaremos. 

^Existe alguno? Si no es asi dadle otro nombre 
de los muchos, esperamos que tengais en vuestro 
disco y vereis que los resultados son totalmente 
satisfactorios. 

Nos atendremos a haceros una pregunta. A 
que es equivalente la orden: 

IDIR,“* 

Con ella estamos indicandole al ordenador, o 
mejor al sistema operativo del manejo de disco, 
que nos de un directorio de <;que? Analicemoslo. 
Decimos que queremos cualquier nombre de 
fichero (asi nos lo indica el primer asterisco) y 
ademas nos es indiferente la extension que tenga 
(segundo asterisco). O sea, le pedimos todos los 
contenidos en el disco, lo mismo que haciamos 
con IDIR. 

De golpe tenemos la inquietud de saber si 
existe alguno, cuyo nombre empiece por la letra 
D. Conociendo que “*” sustituye a un grupo de 
caracteres que no os costara mucho trabajo 
comprender que: 

IDIR, “D*.*” 
nos dara lo que pedimos. 

Existen mas simbolos comodines. La 


interrogacion “?” cumple la misma mision que 
el asterisco pero en este caso con un solo 
caracter. 

IDIR,“PEP?.*” 

visulizara el directorio de todos los ficheros, de 
cualquier tipo, cuyo nombre contenga cuatro 
caracteres y que ademas comiencen por “PEP” 
siendo el cuarto indiferente. 

Serian equivalentes las ordenes: 

lDIR,“* .*” 

y 

IDIR, “?????? ??.???” 

Estamos seguros que vuestra respuesta habra 
sido aflrmativa ya que en ambos casos nos 
estamos reflriendo a «todos los ficheros». 

(iAmpliamos los comandos AMSDOS? 
Normalmente es bastante diffcil que un programa 
nos saiga bien a la primera y conforme vamos 
corrigiendo comprobaremos que se nos llena el 
disco de ficheros con extension BAK. ,:Que 
quiere decir esto? 

Sencillamente que el AMSDOS asigna 
automaticamente clicha extension a la version 
anterior de un fichero cuando hemos grabado 
una mas moderna con el mismo nombre. Asi se 
nos permite utilizar una version anterior cuando 
lo juzguemos oportuno. 

Si el programa ya funciona correctamente, 
^para que tener ocupando espacio en el disco 
todas estas ediciones antiguas de programas? ^No 
es asi? 

dlntengamos borrar las que no nos sirvan para 
nada? Supongamos que nos sobre el fichero 
“PEPE.BAK”. La manera de hacerlo 
desaparecer es empleando otra orden externa del 
AMSDOS: 

IERA,“PEPE.BAK” 

ERA proviene de la palabra inglesa «erase» 
(borrar), con lo que su emision queda bastante 
clara, ^no? O sea, borra todos los ficheros que 
esten de acuerdo con la cadena de caracteres que 
este entre comillas. 

Queremos decir con esto que tambien puede 
admitir simbolos comodines de forma semejante a 
como lo hacia IDIR. 

IERA,“PEPE.*” 

borrara del directorio del disco todos los ficheros 
que se llamen “PEPE” independientemente del 
tipo que tengan, y 

lERA,“*.BAK” 

hara lo p'ropio con todos aquellos que sean una 
version antigua de cualquier otro, ya que tendran 
la extension BAK. 

Por si se os pasado por la mente os 
recomendamos que no se os ocurra teclear: 

lERA,“*.*” 

a menos de estar muy seguros de lo que quereis 
hacer. Con este titulo comando se os quedara el 


H AMSTRAD Sannual 









disco mas bianco que la nieve. 

Antes de continuar haremos una 
puntualizacion. En realidad no se borran los 
ficheros del disco, a menos que grabemos otro 
encima. Lo que ocurre es que en el lugar del 
directorio reservado para el nombre de los 
ficheros existentes se pone una indication delante 
del mismo y el ordenador lo interpreta como que 
ya no nos interesa. 

Bien, ya sabemos la menra de eliminar de un 
disco todo aquello que no nos interesa. 
Pongamonos en otro supuesto. 

Un programa de contabilidad, por ejemplo, 
genera unos datos que se almacenan con el 
nombre “DATOS. DAT’". Terminamos el ano 
en curso y comenzamos el siguiente, asi que 
queremos que los datos referentes al ano 87 esten 
contenidos en un fichero cuyo nombre refleje por 
algun sitio este 87: se impone cambiar de nombre 
a “DATOS.DAT” y ^que mejor nombre que 
“DATOS87.DAT”? 

O sea, que tenemos que «renombrarlo» o 
«renamearlo». Busquemos en el saco de los 
nuevos comandos a ver que encontramos. 
jVaya!, hay algo parecido a RENAME. 

Si, 

IREN,“NUEVO.EXT”,“VIEJO.EXT” 

es una orden externa de AMSDOS que da un 
nuevo nombre o «rebautiza» a un fichero ya 
existente en el disco. 

En nuestro ejemplo tendnamos que escribir: 

IREN,“DATOS87.DAT”,“DATOS.DAT” 

para almacenar los datos del ano 87 con un 
nombre que sea bastante representative de lo que 
alii se encuentra. 

^Que pasa si ya existe otro fichero con el 
nombre “DATOS87.DAT”. Es evidente que en 
el disco no pueden existir dos con el mismo 
nombre y con la misma extension. En este caso 
“SI” nos interesa, en principio, guardar el 
primer fichero ya que puede contender datos 
validos. 

El AMSDOS ha pensado en ello y no lo hace 
desaparecer, sino que sencillamente da un 
mensaje de error advirtiendonoslo: 
DATOS87.DAT already exist 
evitando asi la desaparicion de algun fichero que 
nos valga, en caso de confundirnos al escribir el 
nombre. 

Se nos ocurre tambien pensar la manera de 
cambiar de nombre a un grupo de ficheros: 
estamos pensando en los simbolos comodin. 

Pues bien, en esta ocasion no podemos 
emplearlos, asi de claro. El cambio de nombre ha 
de hacerse de uno en uno, si no intentad: 

IREN, “ *87.DAT”, DAT” 

se nos traducira en el consiguiente mensaje de 
error: 

Bad command 

jNo intentemos hacer cosas que no estan 
permitidas! 


nciagOn 



El directorio del disco esta dividido en 16 areas 
diferentes (0 a 15) llarnadas «areas del usuario» 
sobre las que actuan independientemente las 
distintas ordenes de manejo de disco. 

El area implicita, o sobre la que trabajamos 
nada mas encender el ordenador, es el area 0. Si 
ahora mismo pedimos un CAT nos sacara todos 
los ficheros que esten en esta zona de usario (la O) 
Nosotros podemos trabajar indistintamente en 
una cualquiera con tan solo teclear: 

IUSER,Numero de area 
y ya estaremos colocados en ella. Por ejemplo: 
IUSER,3 

nos habra situado en la zona 3. ^Que hay en 
ella? Visualizadlo mediante: 

IDIR 

por ejemplo. ,;Que aparece? 

Logicamente que no hay ningun fichero en este 
area ya que hasta ahora no hemos trabajado en 
ella. Escribamos un corto programa en Basic: 

10 CLS 

20 PRINT “AREA 3” 
y salvemoslo. Una vez hecha esta operation 
veamos de nuevo el directorio mediante IDIR o 
CAT. 

Esta vez aparecera unicamente este ultimo 
programa ya que estamos en el area 3 y 
cualquier orden AMSDOS solo actua sobre sus 
ficheros. 

Regresad a la zona 0 usando: 

IUSER,0 
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y comprobad todo lo que os decimos. Como 
siempre, os invitamos a que realiceis cuantas 
pruebas se os vayan ocurriendo. Seguimos 
pensando que esta es la mejor forma de 
comprobar sobre vuestras «mismas carnes» el 
funcionamiento de un monton de cosas y sobre 
todo comprobar una serie de particularidades que 
sin imaginacion no llegariamos a conocer. 


Otra posibilidad que nos ofrece AMSDOS es la 
de transferir un fichero de un area a otra. Si no 
queremos que cambie de nombre bastara con 
usar conjuntamente la orden IREN, con todo 
esto que os hemos contado sobre las areas de 
usuario, tecleando: 

IREN,“0:PEPE.BAS”,“3:PEPE.BAS” 

si asf habiarnos llamado al programita anterior. 
Habra desaparecido de la zona 3, como se puede 
comprobar con: 

IUSER,3 


para colocarse en la 0. Aseguraos, jhombre!: 

I USER, 0 

seguido de: 

CAT 

^Quereis tambien cambiarlo de nombre? Pues 
indicadselo al Amstrad. 

IREN,”3:JOSE.BAS”,“0:PEPE.BAS” 

dara al fichero PEPE.BAS de la zona 0 el 
nombre JOSE.BAS y lo asigna al area 3 de 
nuevo. Esto de los USER es una forma de 
dividir y preparar el disco para ser utilizado por 
varios usuarios. 

Bueno, ,;que os parece si lo dejamos por esta 
ocasion? Os invitamos a que nos acompaneis en 
sucesivas semanas en las que continuaremos 
contandoos nuevas cosas sobre manejo de disco. 


lAMSTI 


Corn,,,, mas rapido.,, 


Con el fin de acelerar lo mas posible el correo. y poder resolver o contestar a 
todas las dudas v sugerencias que llegan a nuestra redaccion, a partir de esta scmana 
os rogamos, en beneficio de todos, consignar en el sobre, en lugar bien visible, una 
de las denominaciones siguientes: 

— Suscripciones AMSTRAD. Para todos aquelos casos relacionados con petition 
de cintas. numeros atrasados, formalization de suscripciones, devoluciones, etc... 

— Mercado Comun AMSTRAD. Compras, ventas, intercambios, clubs... 

— Serie Oro AMSTRAD. Para los programas que nos cnvieis para su 
publication. 

— Sugerencias AMSTRAD. Para vuestras crfticas, sugerencias o cualquier 
opinion que querais vertir sobre la revista 




























Cigantes te espera cad a martes en tu kiosco. Una re vista impres- 
cindible para todo aficionado. Cigantes del Basket te ofrece las 
ultimas noticias, las mejores fotos, las opmiones que te interesan, 
las entrevistas que esperas, las anecdotes que te divierfen y los 
los comentarios que te gusta cpnocer. 

Pidela todas las semanas, porque Cigantes da la talla. 











2 section estd dedicada a todas las compras, ventas, clubs de 
usuarios ie Amstrad, programadores y, en general, cualquier clase de 
anuncio que pueda servir de utilidad a los lectores. Todo aquel que lo 
desee puede enviarnos su anuncio, mecanografiado, a: HOBBY 
PRESS, S. A AMSTRAD Semanal. Apartado de Correos 232 
Alcobendas, Madrid. 


jABSTENERSE PIRATAS! 


Mercado 

ccmun 


Desearfa contactar con 
usuarios de Amstrad 464 CPC 
para intercambiar juegos. 
Tengo alrededor de 50 juegos 
buenos. 

Los interesados escribir o 
llamar a Cesar Alonso Pena. PI. 
Sagrado Corazon de Jesus, 2. 
Tel. (91) 411 72 01 (entre las 5 
y las 10). 28002 Madrid. 


Vendo Amstrad CPC 464 
monitor color con manuales, 
mas de 30 revistas, cintas con 
juegos y utilidades ( Batman, 
Cyrus II Chess, Bomb Jack, Light 


Pvrce, Strike Force Harrier, 
ensamblador, desensamblador, 
procesador de textos, 
copiadores, etc.), joystick, 
tapadera teclado, libros. Todo 
por solo 75.000 ptas. Llamar a 
Manolo. Tel. (91) 255 89 01. 
Madrid. 


Para PCW 8256/8512 , por 
fin en Espana, Software Public 
Domain para PCW. Lenguajes 
(C, Pascal, Forth, Prolog, 
Lisp), y utilidades (tambien 
para CPC 6128). Aliscalc: hoja 
de calculo con sistema de 
autodiagnostico de errores de 
formulas. Alisbase: base de 


datos, acceso indexial sistema 
B + Tree, rapidisimo, hasta 
32767 registros. Alisulik. paquete 
de utilidades para tratamiento 
de licheros. Compresor: ahorra 
un 40 por 100 de espacio de 
disco, cuentapalabras. Cifrador 
de textos, AlissorV. ordena 
licheros. Cada disco solo 1.750 
ptas. R. Uphoff. Castillo. 7. 
18184 Beas (Granada). 


Club de Usuarios Amstrad 
Manresa compra, vende y 
cambia programas para CPC 
664-6128. Poseemos mas de 300 



“Sabado Chip ”, de 17 a 19 h. 

















programas entre juegos y 
utilidades. Ultimas novedadcs 
en juegos y utilidades. 
Interesados escribir a Jordi 
Momino i de la Iglesia. Ctra. 
Santpedor, 80, 4.°, 2. a . Tel. 
(93) 873 02 76. 08240 Manrcsa 
(Barcelona). 


Poseo un PC 1512 y la 
impresora Seikvsha 1000.1. Me 
gustarfa intercambiar programas 
e informacion con usuarios de 
Compatibles IBM. 

Tengo enlre otros: Flight 
Simulator, C, Printmaster, Turbo 
Pascal. Pinball, etc. Llamar o 
escribir a Miguel Garcia Vazquez. 
Guadalete. 14, 3. 11012 Cadiz. 
Tel. (956) 28 56 69 (de 2 a 3). 


Intercambio programas y 
f'otocopias de libros referentcs al 
PCW, solamente en Malaga, 
preguntar por Eugenio en el tel. 
43 53 29. 


Traslado ficheros generados 
por Amsfile a ficheros 
gestionables por Dbase II, a 
partir de los archivos 
“Nombre”.DAT; 
“Nombre’LDEF; 
“Nombre”.NDA. Interesados 
escribir a Jose Luis Aguado. 
Curtidores, 3, 5.°. 47006' 
Valladolid. 


Vendo Amstrad CPC 6128, 
con monitor en fosforo verde, 
en perfectas condiciones y 
acompanado de muchos discos 
con programas de juegos y 
utilidades. Interesados llamar al 
(988) 74 66 48 a partir de las 
15,30 horas los dlas laborales. 
Cesar. 

Urge conseguir los manuales 
de Dbase II y Pascal Compas, asi 
como los programas MS Cobol y 


Wordstar con manuales de 
instrucciones. Los cambio por 
otros programas y manuales, 
lista con mas de 200. Escribir a 
Ferrnin Garcia Nieto. Gran Via, 
10, 1-A. 30004 Murcia. 


Deseo contactar con usuarios 
del Amstrad PCW para 
intercambio de programas. 
Interesados escribir a Alberto 
Gonzalez. Sueca, 17, pta. 27. 
46006 Valencia. 


Vendo Amstrad CPC 6128 
FV, cable para conexion de un 
cassette. 25 discos con los 
mcjores programas del 
mercado, casi todo utilidades. 9 
cintas con programas, 6 cintas 
vlrgenes, las ultimas 12 revistas 
de Amstrad User, y la 
coleccion, casi completa, de la 
revista AMSTRAD Semanal, 
incluida la suscripcion hasta 




Todos los sabados, de 5 a 7 
de la tarde, en ‘ ‘Sabado Chip’ ’. 
Dirigido por Antonio Rua. 
Presentado por Jose Luis 
Arriaza, hecho una 
computadora. Dedicado en 
cuerpo y alma al ordenador, 
y a la informatica. Haciendo 
radio chip... estilo Cope. 
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Jit s la section estd dedicada a todas las compras, ventas, clubs de 
usuarios de Amstrad, pro'gramadores y, en general, cualquier close de 
anuncio que pueda servir de utilidad a los lectores. Todo aquel que lo 
desee puede enviarnos su anuncio, mecanografiado, a: HOBBY 
PRESS, S. A. AMSTRAD Semanal. Apartado de Correos 232 
Alcobendas. Madrid. 


jABSTENERSE PIRATAS! 

finales de ano, todo en perfecto 
estado, solo por 90.000 ptas. 
Interesados llamar al tel. (988) 
74 66 48, a partir de las 15,30 
horas. 


para aprender el uso del 
ordenador. Del precio ya 
hablaremos. Tambien cambiarxa 
por un CPC-6128. Llamar al 
tel. (91) 786 04 77, despues de 
las 9 de la noche. Preguntar por 
Jose. 


Mercado 

ccmun 


compiladores, gestion), por 
otros que no posea: aventuras 
conversacionales, juegos arcade, 
simuladores, gestion. Llamar al 
tel. 274 47 07. Preguntar por 
Angel. Madrid. 


Si quieres pertenecer al 
mejor club en Espana de 
Spectrum-Amstrad, lo unico 
que tienes que hacer es enviar 
tus datos a Javier Gracia. 
Sangenis, 71-73, 10.° A. 50010 
Zaragoza. 


Compraria impresora 
compatible con el Amstrad 
6128 en buenas condiciones. 
Precio al contado. Interesados 
llamar al tel. 403 75 00. 
Preguntar por Eloy. Madrid. 


Vendo el juego de los Goonies 
en disco, para Amstrad 6128, y 
un videqjuego con un cartucho 
de juegos de regalo. Estas cosas 
tambien las puedo cambiar por 
un joystick o por el disco que te 
regalan al comprar el ordenador 
Amstrad de la serie CPC en 
disco. Los interesados llamar al 
tel. 231 05 60 de Madrid. 
Llamar tardes. 


Vendo ordenador Amstrad 
CPC 464. Regalo guias del 
usuario, un monton de juegos 
(Game Over, Three weeks in 
paradise, 3-D voice, Ches 3-D Gran 
Pnx, Cauldron II, Knightlore, 
etc.), otro monton de utilidades 
(GEN A-3, MON A-3, Mini¬ 
office, Answord, programas de 
matematicas, etc.) y nueve 
copiones. Tambien regalo cur so 


Vendo Amstrad 6128, color, 
nuevo, aun en garantia. Filtro 
Polac, fundas, manual. Los 
juegos: Skyfox, Glass, Fighter 
pilot, Topgun, Elite, etc. Todo 
por 95.000 ptas.; precio en el 
mercado 150.000 ptas. Tel 
206 14 29 (de 2 a 5 de la 
tarde). 


Vendo Amstrad CPC 464 
con monitor en color, 
manuales, revistas AMSTRAD, 
juegos, ajedrez tridimensional, 
ensamblador, desensanblador, 
procesador de textos, joystick, 
tapadera teclado, libros de 
lenguaje maquina. Todo por 
70.000 ptas. Preguntar por 
Manolo en el tel. (91) 255 89 91 
Madrid. 


Intercambio programas para 
Amstrad PCW 8256, utilidades 
(ext. grafica Basic PCW, 


Intercambio programas, 
experiencias, y hago todo tipo 
de programacion, sobre todo 
referidos a gestion, para 
Amstrad PCW 8256/512. 
Escribir a Alfonso Franco. Aptdo. 
Correos, 99. Jerez de la 
Frontera (Cadiz). 


NECESITAMOS personas 

que conozcan profundamente 
lenguaje ensamblador del Z80 y 
dominen los ordenadores Amstrad 
CPC desde el punto de vista del 
Lenguaje Maquina. 

Si usted es uno de ellos pongase en 
contacto con nosotros rapidamente 
en la direccion que se indica a 
continuacion, poniendo en lugar 
muy visible del sobre. 

Referenda 
Codigo Maquina 
AMSTRAD Semanal 
Nuestra direccion es: 

AMSTRAD Semanal 

Carretera de Irun, km 12,400. 
Fuencarral. 28049 Madrid. 


NECESITAMOS personas 

que conozcan profundamente lenguaje ensamblador del 8086/8088 y 
dominen los ordenadores compatibles IBM PC desde el punto de vista del 
Lenguaje Maquina. Se valoraran en gran medida conocimientos acerca del 

DOS. 

Si usted es uno de ellos pongase en contacto con nosotros rapidamente en la 
direccion que se indica a continuacion, poniendo en lugar muy visible del 

sobre: 

Referencia DOS AMSTRAD Semanal 
Nuestra direccion es: 

AMSTRAD Semanal 

Carretera de Irun, km 12,400. 

Fuencarral. 28049 Madrid. 
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Complemento 


a Newton 


Por: Cesar Lobato 


Mundo del 

CPC 


El articulo que sigue esta pensado para que los estudiantes, bien de 
COU o de los primeros cursos universitarios de una facultad de ciencias, 
puedan aprovechar la capacidad de calculo de un CPC en la resolucion de 
un tradicional problema de fisica muy tedioso de enfrentar a mano. Por ello\ 
no se han hecho muchas concesiones en el sentido de divulgar el lenguaje en 
el que se explica lo que hace el programa y como. Aquellos que esten 
interesados en el tema lo captaran perfectamente a la primera ojeada. 


r 

M. J ste programa ha sido disenado como 
complemento a Newton para tratar los casos con 
mayor numero de masas que Newton no 
consideraba, pero si se utilizan mas masas, su 
metodo de ecuaciones resulta demasiado largo y 
engorroso, por lo que obliga a trabajar con una 
mecanica de mayor nivel como es la mecanica de 
Lagrange. 

No es que las mecanicas sean diferentes, sino 


que la mecanica de Lagrange es mas facil si 
sabemos derivar. 

En la mecanica de Lagrange en vez de utilizar 
un sistema absoluto de coordenadas, utilizamos 
una serie de restricciones y de coordenadas 
relativas al problema. Sera en estas coordenadas 
en las que hallemos el lagrangiano, cjue no es 
mas que la resta de la energia cinetica en las 
nuevas coordenadas y del potencial. 


10 REM ********************** 

20 REM *** programs hecho *** 

36 REM *** *** 

40 REM *** by *** 

50 REM *** *** 

66 REM *** CESAR LOBATO *** 

70 REM ********************** 

80 REM 

90 REM Este programa cal cu la 1 a.s ac 
el era- ciones de masas por lagrang 
e 

100 DIM rezC 5):ERASE rez 

101 dim masa<5),ang(5),ace(5,5>,mat 
r izC4,4>, ace 1e<4),ka<5,3> 

102 ERASE masa,ang,ace,matriz,acele 

,ka 

lie DIM aC5) ,b<5,2>,pol<4,8) ,c( 4,2) 
120 ERASE pol , a, b 

130 MODE 1 : CLS : DEG .-WINDOW#4,1,46,22 
,25:PAPER#4 ,3 sCLS#4 
146 UJINDGWK2, 1 .40,1 , 5: PAPER#2, 3 : CLS 
#2 

150 b<1,1)=302:bC2,1>=192:b<3,1>=15 
6 :b< 4,1 ) = 102:b , '5 J 1 >=80 
160 SOUND I,239,56,8 s PRINT#2, SPC C 17 
> j " HOLA" ;SPC< 17> ;SPC< 8> ; “Uamos a re 
solver un problema";SPCC 9> ;SPC(18>j 
"de “;SPCC 1 8) jSPCC11 ) ; "p1 anos inclin 
ados" ; SPCC12>;SPCC1 2> ; "maqu t na de A 
TWOOD" 

170 PRINT#4,"masas maxi mas 5":INPUT 
#4, "cu ant as masas por -favor" ;nl 
180 IF FIXCn 1 ) On 1 THEN CLS#4sGOTO 
170 

190 if nl <=1 OP n 1 > 5 THEN CLS#4:G0T 
0 176 

260 d$=CHR3K 143)+CHR*<143) 

210 FOR i = l TO nl 

220 a< i >=b<nl,1>*i+32*<i-1) 

230 IF n 1 =4 THEN a(i)=a<i>+l 

246 MOVE aCi),9*16: TAG SPRINT d$;sTA 

GOFF 

256 MOUE ,8*1 6:TAGSPRINT d*;sTA 

GOFF 

260 MOUE aC i > ,6*16 sTAG: PRINT'TI*' $ ■ ; s 
TAGOFF 


270 NEXT i 

280 n4=0:CLS#2:CLS#4 
290 na=l sGOSUB 2880 

360 REM 9806 mira donde poner el cu 
rsor 

31 0 SOUND 1,156,50,6:PRINT#4 ,"Pr ? nc 
i pio de cuer-da " ;CHR$C224> 

320 n2=na 

330 IF i^2>nl THEN ml=pol < n2-nl ,6) :mi 
2=pol <ni-nl ,7) i-f$=CHR*< 224) ELSE ml 
=aCn2> :m2=9*l 6 :-f$=CHR$<224> 

340 MOUE ml,m2STAGsPRINT f*; sTAGOFF 
350 PRINT#2,SPC C10 >; " C C amb i ar de o 
pc i on " ; SPCC 11 > ;SPCC 1 0 ) j "D Bor r ar" $S' 
PCC21 ) ;SPCC10); "0 eliges Qpcion"; 
360 REM 8000 mira si pulsa.s 0,D o C 
370 GOSUB 2680 

380 IF pi=2 THEN GOTO 460 ELSE IF p 

1=3 THEN GOTO 530 

390 na=n2+1sGOSUB 2880:nb=na 

400 IF nb>nl THEN m3=pol<nb-n1 , 6):m 

4=pol<nb-nl,7>:f2*=CHR*<224> ELSE m 

3=a<nb)sm4=9*l6:f2*=CHR*<224> 

410 IF n2>n1 THEN f1*=CHR*<231>;ml= 
pol <n2-r.l ,6) :m2=po1 <r.2-nl ,7) ELSE f 
1*=CHR*<143):ml=aCn2)sm2=9*16 
420 REM B100 cambia el cursor de si 
t i o 

430 GOSUB 2710 

440 n2=nasSOUND 1,239,25,7sGOTO 370 
450 REM por si no hay polea que bor 
rar 

460 IF n4=0 THEN SOUND 1,190,25,7:S 
OUND 1,280,25,7sSOUND 1,350,25,7:L0 
CATE#4,1,2:PRINT#4,"NO HAY QUE BORR 
AR"?sGOTO 370 

470 anal=cCri4,l> : ana2=cCn4,2) 

480 FOR i=1 TO 2:cCn4,i>=0sNEXT i:F 
OR J=1 TO BspolCn4,j)=0 sNEXT j 
490 IF anal>nl THEN polCanal-n1,8>= 
6 ELSE bCanal,2)=0 

500 IF ana2>nl THEN pol<ana2-n1,8)= 
6 ELSE bCana2,2>=0 

510 n4=n4-l:CLS#4sPRINT#4,"BORRADA" 
sGOSUB 2736sGOTO 290 

£ 


526 REM borro la polea y vuelvo a e 
1 e g i r 

538 IF r.2>nl THEN pol Cn2-n 1 ,8>=1 EL 
SE b(r.2,2) = l 

540 IF n2>nl THEN ml=polCn2-n1,6)sm 
2=polCn2-nl,7):f1*=CHR*C23I> ELSE m 
I=aCn2>sm2=9*16:f1S=CHR*C143) 

556 MOVE m 1 , m2: TAG sPRINT -f 1 * ; s TAGOF 
F 

560 r.a=l sGOSUB 2886 
570 REM miro dode poner el cursor- 
580 SOUND 1,150,56,6:PRINT#4,"FINAL 
de cuer-da " ; CHR$< 225) ; 

590 n3=na 

600 f 1S-=CHR$( 225) : I F n3>nl THEN ml = 
polCn3-nl,6):m2=polCn3-nl,7) ELSE m 
l=a(n3> sm2=9*16 

616 MOUE ml ,m2sTAG sPRINT fl*;;TAG0F 
F:CLS#2 

626 PRINT#2,SPCC10> ;"C Camb i ar de o 
pc i on" ;SPC( 11) ;SPC< 10) D Bor rar" |S 
PCC21);SPCC10);"0 eliges Opcion”} 
630 REM 8000 mira si pulsas 0,D o C 
640 GOSUB 2680 

650 IF p1=2 THEN GOTO 710 ELSE IF p 

1=3 THEN GOTO 750 

660 na=n3+1sGOSUB 2886 

670 IF na>nl THEN m3=polCna-nl,6):m 

4=pol<na-nl,7):f2*=CHR*<225) ELSE m 

3=a< na):m4=9*l6:f2*=CHR*C225) 

686 IF n 3 > n 1 THEN -f 1*=CHR*< 231) jml = 
polCn3-n1,6):m2=polCn3-n1,7) ELSE m 
l=a<n3) :m2=9*16:f1*=CHR*(143) 

690 REM cambio el cursor de sitio 
700 GOSUB 2710:SOUND 1 ,239,25,7sn3= 
nasGOTO 646 

710 anai=c < n4,1 ) : ana2=c< ri4,2) 

720 REM borro la entrada anterior 
devuel el control a 140 
730 IF n2>nl THEN polCn2-nl,8)=0 EL 
SE b(n2,2)=0 

740 CLS#4sSOUND 1,219,25,6:PRINT#4, 
"BORRADA"sGOSUB 2730sGOTO 290 
750 IF n3>n1 THEN pol<n3-n1,8)=1 EL 
SE bCn3,2>—1 
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A continuacion procedemos a hallar un sistema 
de ecuaciones donde las variables del sistema 
seran las aceleraciones relativas, es decir, las 
segundas derivadas de las coordenadas relativas al 
problema. Muchisimas veces lo que representan 
esas ecuaciones son sistemas de ecuaciones 



SUBRUTINAS 

1100 

Crea y resuelve el sistema de 
ecuaciones obtenido del problema 
mediante el lagrangiano y las 
ecuaciones de Lagrange. 

1630 

Presenta un dibujo que es el 
problema que queremos resolver 
mostrando masas, pesos, y 
coordenadas generalizadas. 

2190 

Presentation de resultados, 
aceleraciones absolutas (Newton) 
y relativas (Lagrange). Las 
absolutas son obtenidas a partir de 
las relativas. 

2360 

Asigna las posiciones de la polea y 
construye los vectores necesarios 
para pasar de coordenadas 
absolutas a relativas. 

2590 

Control de fin. 

2680 

Mira si puisas O, D o C. 

2710 

Cambia el cursor de sitio. 

2730 

Dibuja masas y poleas mientras se 
estan metiendo poleas. 

2880 

Mira ddnde poner el cursor. 

3000 

Presentacion del sistema. 

3500 

Cabecera. 


diferenciales que, incluso, solo pueden ser 
resolubles por metodos aproximativos, sin llegar 
nunca a conocer la solucion exacta. 

Por lo dicho hasta ahora, puede pensarse que 
el programa es de dificil comprension; sin 
embargo, en el caso particular que nos ocupa, el 
sistema es lineal y con solo diagonalizar la matriz 
del sistema obtendremos las aceleraciones 
relativas. 



VARIABLES 

REZ 

Aceleraciones absolutas. 

Nl 

Numero de masas. 

MASA 

Guarda el valor numSrico de las 
masas. 

ANG 

Guarda el valor de los Angulos en 


grados. 

ACE 

Nos dice las poleas que se ven 


afectadas por una masa. 

MATRIZ 

Del sistema de ecuaciones de 
Lagrange. 

ACELE 

Aceleraciones relativas. 

A 

Posiciones donde poner las masas. 

B 

Posiciones donde poner la primera 
masa segun el numero de masas y 
masas que ya estan unidas. 

POL 

Posiciones de poleas y masas que 
une. 

FUX 

Fuerza eje X. 

FUY 

Fuerza eje Y. 

FUE 

Fuerza paralela al movimiento. 


766 REM asigno las posiclones de 1 

a polea y construyo 1 os vectores pa 

ra poder aplicar LAGRANGE 

776 GOSUB 2366 

780 n4=n4+l 

796 GOSUB 2730 

806 REM 9600 dibuJar 

816 GOSUB 2590 

826 REM decison de fin 

830 IF p5=0 THEN CLS#2:CLS#4:GOTO 2 

96 ELSE IF p5=2 THEN GOTO 876 

846 CLS#2:CLS#4:PRINT#4,"pulsa F pa 

ra acabar";:PRINT#4,“pulsa S para s 

eguir poniendo poleas"j 

856 e*=INKEY* 

860 IF e*="f“ OR et= ,, F ' 1 THEN GOTO 8 

80 ELSE IF e$="s" OR e*="S H THEN CL 

S#4:GOTO 290 ELSE GOTO 856 

870 REM entrada de Masas,Angu1 os y 

coef. de rozamiento 

960 p 2=0 

916 FOR i=1 TO n1 

926 CLS#2:CLS84sPRINT84,"Peso de la 
Masa";i 5 " en Kg"}sINPUTH4,masa(i) 
936 SOUND 1,239|25,6:p1=0 
946 PRINTH2,SPC( 6 );"Si quieres que 
la masa este en";SPC<4)jSPC<12);“el 
Suelo pulsa S"}SPC<12)jSPC<12>} 
r1 1 cal pulsa C"} SPC< 24);"un Plano p 
ulsa P";SPC<12)j"1 a decision limita 
e 1 movimie n t o de la M" ; 

956 e*=INKEY* 

966 IF e$="P" OR e*= M p H THEN p2=p2+ 
1 sp 1—2 ELSE IF e^= ,l V" OR e*="v” THE 
N p 1 = 1 :p2=6 ELSE IF e$= s S'' OR e*="s 
" THEN p1=4:p2=0 ELSE GOTO 956 
976 IF p1=2 AND p2=2 THEN p1=3:p2=0 
980 ka(i t 3>=p1 

996 IF p1=1 THEN ang<i)=90 ELSE IF 
pl=2 OR p1=3 THEN CLS#4sINPUT84,”An 
gu 1 o que forma el piano con el suel 
o", an g (i) ELSE IF pl=4 THEN ang<i) = 

e 

1600 IF ang<i)>90 OR ang(i )<6 THEN 
GOTO 990 


1610 IF masa(i)<e THEN GOTO 926 
1026 SOUND 1,196,26,6:NEXT i 
1036 GOSUB 1166 
1046 GOSUB 1636 
1056 GOSUB 2190 

1666 CLS#2:PRINT#2,"pu1sa C para Co 
menzar de nuevo pulsa R pa 

ra Resultados" 

1076 e*=INKEY* 

1686 IF e*="C" OR 6*=^" THEN GOTO 
2946 ELSE IF e*="R" OR e*="r" THEN 
GOTO 1050 ELSE GOTO 1676 
1690 END 

1106 REM Esta subrutina crea y resu 
Ive un sistema de ecuaciones basad 
o en el metodo de LAGRANGE 
1110 REM Construccion de las fuerza 
s en el sentido del movimiento y fu 
erzas perpendicu1 ares a el 
1120 DEFREAL a,f:DIM fux<5>,fuy<5), 
fue<4>,fur(4),mes(4> 

1136 ERASE fux,fuy,fue,fur,mes 
1140 FOR i=1 TO nl 

1150 fux(i)=masa(i)*9.8*SIN< ang(i)) 
1160 fuy<i>=coef<i>*masa<i>*9.8*C0S 
(a.ng( i > ) 

1176 NEXT l 

1180 REM Construimos 1 os vectores a 
ce(i)a partir de pol<1..n4,1..nl) q 
ue representaran la composicion de 
las coordenadas absolutas en funcio 
n de las general Izadas 
1196 FOR i=n4 TO 1 STEP -1 
1206 FOR TO nl 

1216 IF pol(i,J)<0 THEN ace(ABS<pol 
( i )*“! 

1226 IF pol<i,j)>0 THEN ace<pol< i,j 
>,i>=1 
1236 NEXT J 
1246 NEXT i 

1250 REM Construimos la matriz A de 

1 sistema de ecuaciones A.x=b 

1266 FOR i=1 TO n4 

1276 FOR j=1 TO n4 

1286 IF iOi THEN GOTO 1336 


1296 FOR k=l TO nl 

1360 IF ace(k,i)=l OR ace(k p i)=-l T 
HEN matrizO ,j)=matriz( i ,j)+masa.(k) 
1316 NEXT k 
1320 GOTO 1370 
1336 FOR k=l TO nl 

1340 IF ace<k,i)=0- OR ace(k,j)=0 TH 
EN GOTO 1360 

1356 IF ace<k , i >=ace( k , J ) THEN ma.tr 
iz<i|j>=matriz<i,J)+masa(k) ELSE IF 
ace(k,i)=-l*ace(k,J) THEN matrizCi 
,J)=matriz<i,j)-masa(k) 

1360 NEXT k 
1370 NEXT J 

1380 REM Constrimos el vector fuerz 
a en la direccion del movimiento 
1390 FOR J=1 TO nl 

1406 IF a.ce( j f i ) = 1 THEN fue(i)=fuet 
i> +fux<J) ELSE IF ace(j,i> = -l THEN 
fue<i>=fue(»)-fux(j) 

1416 NEXT j 
1420 NEXT i 

1436 IF n4=l THEN ace 1e<1)=fue<l)/m 
atriz ( 1,1) 

1435 GOSUB 3066 

1440 REM Triangu1arizar la matriz 
1450 FOR i=l TO n4-l 
1466 FOR j=i+1 TO n4 
1470 FOR k=i TO n4 

1480 matriz(J,i)=matriz(J,i>-<matri 
z< » l k)*(matri z< j,i)/matriz< i,i))> 
1490 NEXT k 

1500 fueO)=fue(j>-(fue( i )*(matr iz< 
j,i)/matriz<i,\)>) 

1510 REM Compruebo a(i,i)<>6 

1520 IF matriz<i+1,i+1)=0 THEN STOP 

1530 NEXT j ,i 

1540 REM Calculamos las aceleracion 
es 

1550 FOR i=n4 TO 1 STEP -1 
1560 IF i=n4 GOTO 1666 
1576 FOR j= i +1 TO r.4 

1586 fue<»)=fue<i)-<matriz ,j)*ace 
letj)) 

1590 NEXT j 
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El programa podemos dividirlo en ties partes. 
En la primera, entran las restricciones impuestas 
al movimiento de las masas debidas a sus uniones 
mediante poleas. En la segunda, las restricciones 
al movimiento debidas al suelo en el que este la 
masa, piano inclinado, suelo horizontal, caida 
libre, asf como los datos necesarios de masa, 
angulo... etc. Y en la tercera entra el calculo 
propiamente dicho, y donde hemos utilizado una 


Mundo del 

CPC 

simbolizacion para que derive el lagrangiano sin 
necesidad de derivar, basandonos en las formas 
unicamente cuadraticas que este tiene. 



1600 ace I et i )=fuet i Vmatr i zt i', i > 

1618 NEXT i 

1615 GOSUB 3000 

1620 RETURN 

1630 REM pintar 

1640 ca=FIXt640/nl):CLS:CLS#2:CLSM4 
1650 FOR i=l TO nl 
1666 IF ang<i)<90 THEN GOTO 1750 
1670 MOVE ati)+8,12*16iTAGSPRINT CH 
R*<231>;:TAGOFF 

1680 MOVE at i ) ,9*16:DRAW ati>+32,9* 
16:DRAW ati)+32,9*16-25:DRAW ati>,9 
*1 6-25: DftAUJ ati),9*16:MOVER 5,-5:FI 
LL 1 

1690 MOVE ati>+16,12*16 :DRAWR 0,-3* 
16 

1700 MOVE ati)+16,9*16-25:DRAWR 0,- 
20:PLOT ati1 + 15,9*16-34:PLOT ati> + 1 
6,9*16-34 

1710 MOVE ati),6*16:TAG:PRINT"M";i; 
:TAGOFF 

1720 MOVE ati1+30,9*16-34::TAG:PRIN 
T"P*;i!:TAGOFF 

1730 kati,1>=ati>+8;kati,21 = 12*16 
1740 GOTO 2050 

1750 IF angti> >0 THEN GOTO 1850 
1760 MOVE ca*ti-1),9*16-26;DRAW ca* 
i,9*16-26 

1770 MOVE ca*tI-1> + tFIXttca-48)/3)1 
,9*1 6:DRAWR 32,0:DRAWR 0,-25:DRAWR 
-32,0 :DRAWR 0,25:MOVER 5,-5:FILL 1 

1780 MOVE ca*(i-l) + t2*FIX(t ca-32>/3 
11 + 32,9*16-9:TAG:PRINT CHR*t2311; :T 
AG OFF 

1790 MOVE ca*ti'-ll + t2*FIXttca-321/3 
11+32,9*16-9:DRAW ca*ti-11+tFIXttca 
-481/311,9*16-9 

1800 MOVE ca*ti-11+tFIXtfca-481/31 
1,6*16:TAG:PRINT"M"ii;:TAGOFF 
1810 MOVE ca*ti-ll+tFIXttca-481/31 
1+16,9*16-25:DRAWR 0,-20:PLOT ca*t 
i-l1 + tFIXt tca-481/311 + 15,9*16-34:PL 
OT ca*ti-11 + tFlXt tca-481/311 + 17,9*1 
6-34 


1820 MOVE ca*< i -11+fFIXttca-481/31 
1+30,9*16-34:TAG:PRINT"P";i;:TAGOFF 
1830 kati ,1l=ca*ti-11 + t2*FIXt t ca-32 
1/31 1 +40:kati,21=9*16-9 
1840 GOTO 2050 

1850 IF kati,31=2 THEN GOTO I960 
1860 MOVE ca*fi-11,12*16:DRAW ca*i, 
8*16 

1870 MOVE FIXtca*ti-1 1 +<ca-351/21,1 
2*16-FIXttt3*16/cal*tca-321/211-5:0 
RALIR 5, tca/t3*16) )*5:DRAWR 30,-tt(3 
*161/cal*301:DRAWR -5, -tea/13*1611 * 
5:DRAWR -30,1 1 (3*161-cal*301:MOVER 
5,5:FILL 1 

1880 MOVE FIX(ca*ti-l1+tca-351/21,6 
*16:TAG:PRINT"M";i;:TAG0FF 
1890 MOVE ca*fi-l1+8,13*16:TAG:PRIN 
T CHR*C2311;:TAG0FF 

1900 MOVE ca*ti-11,12*16+8:DRAW FIX 
tca*ti-1l+tca-351/2!+8,12*16-FIXt tt 
3*16/cal*tca-321/21 1 

1910 MOVE FIXtca*ti—11 + tea—351/21 + 1 
5,12*16-FIXt < t3*16/cal*tca-321/21 1- 
t tt3*161/ca)*30)-5:DRAWR 0,-20:PLOT 
FIXtca*fi-11+tca-351/2)+l4,12*16-F 
IXt 11 3*16/caI*tca-321/211-t 113*161/ 
ca)#30)-15 

1920 PLOT FIXtca*ti-1l+tca-351/21+1 
6 , 12*16-FIX 11 13*16/cal*tca-321/21 >- 
1113*161/ca1*301-15 

1930 MOVE Fixlt ca*t i -11 + t ca-351/2)-1 

7,11*16-FI Xt t|t 3*16/cal*f ca-321/211- 

15 :TAG : PRINT"|P ,, ; i j :TAG0FF 

1940 kati,1l=ta*ti-ll+16:kati,21=13 

*16 

1950 GOTO 2050 

1960 MOVE ca*fi-1>,8*16:DRAW ca*i,l 
2*1 6 

1970 MOVE FIXtca*ti-ll+tca-351/21,8 

*16+FIXttt 3*16/cai*tca-351/21 1 + 10 : D 

khiU'R “5 , ^ c a/ < 3* 16 > / *5 * DRmWR SB , i •+ 3* 

16>/ca)*36:DRAWR 5,-<ca/<3*l6)>*5:D 

RAWR -36 ,-< < 3*1 6)/ca> *30 

I960 MOVER 5,5:FILL I 

1990 MOVE FIX(ca*(i-1)+(ca-35>/2),6 


*16 sTAG:PRINT H M";i;:TAG0FF 

2606 MOVE ca*i-l6,13*16:TAG:PRINT C 

HR*(231)jsTAGOFF 

2610 MOVE ca*i,13*16-8:DRAW FIXCca* 
(i-1 } + ( ca-35>/2)-3,8*16 + FIX< ( <3*16/ 
ca)*(ca-32)/2))+15 

2020 MOVE FIX(ca*(i —1 > + ( ca-35)/2) + 1 
5,8*1 6+FIX<( <3*16/ca)*<ca-32)/2))+( 
(3*1 6)/ca> *36 + 7: DRAUIR 0,-26:PLOT FI 
X< ca*< i-l) + <ca-35)/2) + 14,8*16+FIX(< 
(3*1 6/c a)*(ca-32)/2)) + < <3*16>/c a) *3 
0-2 

2030 PLOT FIX(ca*( i -1)+<ca-35)/2)+ 1 
6,8*16+FIX<((3*16/ca)*(ca-32)/2))+< 
(3*1 6)/ca) *36-2 

2640 ka( i,1 )=ca* i -8:ka(i,2)=13*16:M 
OVE FIX<ca*( i-l)+(ca-35)/2)+30,8*16 
+FIX<<(3*16/ca)*(ca-32>/2))+<<3*16) 
/ca)*30-1 0 :TAG:PRINT"P 11 ; i ; sTAGOFF 

2650 NEXT i 

20 66 FOR i =1 TO r.4 

2070 IF c(i , 1)>nl THEN vl=pol<c<i,l 
)-nl,6):ul=pol<c(i,1)—nl,7) ELSE vl 
=ka(c< i ,1),1):ul=ka(c<i,1),2> 

2080 IF c(i,2)>nl THEN v2=pol(c(i,2 
)-nl,6):u2=pol(c(i,2)-nl,7) ELSE v2 
=ka(c< » ,2),1):u2=ka(c( i ,2),2) 

2090 pol<i,6)=<vl+v2)/2 

2100 IF u 1 >u2 THEN poK i , 7)=u 1+32 E 

LSE pol(i,7)=u2+32 

2110 NEXT i 

2126 FOR i=l TO n4 

2130 MOVE pot < i ,6),pol(i,7):TAG:PRI 
NT CHR*(231); sTAGOFF 

2140 IF c(i,1) <—n1 THEN MOVE pol(i, 
6)+8 ,pol<i,7): DRAW ka(c(i ,l) l l),ka( 
c< <, 1),2) ELSE MOVE pol(i ,6)+8 ,pol ( 

» ,7)sDRAW pol(c( i,1)-nl,6),pol <c<i, 

1) — n1,7) 

2150 IF c<i,2) <=nl THEN MOVE pol<i, 
6)+8,pol<i,7): DRAW ka(c<i,2) ,1),ka< 
c< i ,2) ,2) ELSE MOVE pol < i ,6>+8,pol.< 
i,7):DRAW pol<c(i ,2)-nl,6),pol (c<i, 

2) -nl,7) 
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Una gran parte de la information entra y sale 
de forma grafica para que los estudiantes de 
COU o primero que empiecen a ver este metodo, 
tengan una buena comprobacion de los resultados 
por ellos obtenidos al trabajar con Lagrange. 



w 
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2160 HOVE pol(i,6)+16,pol<i,7>-16:T 

AG:PRINT’ ! X“ ; i j :TAGOFF 

2170 NEXT l 

2180 RETURN 

2190 CLS#2:CLS#4 

2200 FOR i=l TO nl 

2210 FOR j=l TO n4 

2220 IF ace(i,j)=l THEN rez(i)=rez( 
i)4-&cele<J) ELSE IF ace<i,j)=-l THE 
N rez(i)=rez(i>-ace 1e(J) 

2230 NEXT j 
2240 NEXT i 

2250 PRINT#4,“pu1sa G ace 1eraciones 
Generalizadas pulsa A acelerac 

iones Absotutas pulsa C Con 

tinuar" 

2260 e*=INKEY* 

2276 IF e*="a" OR e*="A" THEN GOTO 
2290 ELSE IF e*=*g" OR e*=“G H THEN 
GOTO 2326 ELSE IF e*="c n OR e^'-C” 
THEN GOTO 2350 ELSE GOTO 2260 
2280 REM aceleraciones absolutas 
2290 CLS#2 

2300 FOR i=l TO nl:PRINT#2,"ACELERA 
CION de la masa";i;" = ";rez<i):NEXT 

1 

2310 CLS#4:GOTO 2250 
2320 CLS#2 

2330 FOR i—1 TO n4:PRINT#2,“ACELERA 
CION en cuerda";i 5 acelefi)sNEXT 

2340 CLS#4:GOTO 2250 
2350 RETURN 

2360 c<n4+l,1>=n2sc<n4+1,2)=n3 
2370 IF n2>nl THEN ml=pol<n2-nl, 6 )s 
m2=pol<n2—n1,7) ELSE ml=a(n2)sm2=9* 
16 

2386 IF n3>n 1 THEN m3=pol (r.3-nl , 6 ) ! 
m4=pol(n3—n1,7) ELSE m3=a<n3>:m4=9* 
16 

2390 pol (r.4+1 , 6 ) = <ml+m3)/2 

2400 IF m4>m2 THEN pol(n4+l,7>=m4+3 

2 ELSE pol<n4+l,7>=m2+32 
2410 m5=0 

2420 FOR i=1 TO n4 

2430 IF pol<n4+l,6)~po1Ci, 6 > AND po 
1Cn4+1,7>=pol<t,7) THEN m5=l 


2440 NEXT i 

2450 IF m5=l THEN m5=0:pol<n 4 +1,?)= 
< pol <n4-*-1 ,7)4-32) sGOTO 2420 
2460 IF Cn2 OR r.3>>nl THEN GOTO 24S 
0 

2470 pol(n4 +1,1)=n2:pol<n4+1,2)=-l* 
n3 

2480 IF n2<=nl THEN pol<n4+1,1 )— n2: 
m5=l:GOTO 2540 
2490 m5=0 

2500 FOR i=1 TO nl 

2510 poUn4+l , i >=ABS(po1 <n2-nl , i >> 
2520 IF pol <r.4+l , i )<>0 THEN m 5 =m 54 -l 
2530 NEXT i 

2540 IF n3<=n1 THEN pol<n4+1,m5+1)= 

-1*n3:RETURN 

2550 FOR i=m 54 -l TO nl 

2560 pol <n 44-1 , j )=-t*ABS<pol <n3~nl . i 

-m5) ) 

2570 NEXT , 

2580 RETURN 

2590 ml=0:m2=0 

2600 FOR i=l TO nl 

2610 IF pol(n4,j >=0 THEN mi = l 

2620 IF b(i,2)=0 THEN m2=l 

2630 NEXT i 

2640 IF ml=0 THEN p5=2:G0T0 2676 
2656 IF m2=0 THEN p5=l sGOTO 2676 
2660 p5=0 
2670 RETURN 
2680 e*=INKEY* 

2696 IF e*= "C" OR e*= H c M THEN pl = l 

ELSE IF e*—"D * 1 OR e^-d" THEN pl =2 

ELSE IF e*="0" OR e*= 1 , o H THEN pi =3 

ELSE GOTO 2686 
2700 RETURN 

2710 MOVE m3,m4sTAGsPRINT f2*j:TAG0 

FFsMOVE ml,m2 STAGsPRlNT Fl*;iTAGOFF 

2720 RETURN 

2730 REM ptntar 

2740 CLSsCLS#2:CLS#4 

2750 FOR i=l TO nl 

2760 MOVE a< 1 >,9*16 STAGsPRINT d*;:T 
AGOFF sMOVE a< 1 >,6*16:TAGsPRINT d*;s 
TAGOFF sMOVE a.< i ) ,7*1 6 :TAG: PRINT"M“ ; 
i |sTAGOFF 
2770 NEXT 1 


2760 IF n4=0 THEN RETURN 
2790 FOR i=l TO n4 
2800 ol=ci , 1 * so2=c( i ,2) 

2810 MOVE pol' 1 ,6),po! <i ,7)sTAGsPRI 

NT CHR*< 231);sTAGOFF 

2820 IF ol>n1 THEM m3=pol(ol-n1,6): 

m4=polCol-nl,7) ELSE m3=a(ol)+16:m4 

=9*16 

2830 IF o2 >n1 THEN m5=pol<o2-n1, 6 ) : 
m 6 =pol(o2—n1,71 ELSE m5=a<o2) 4 1 6 :m 6 
=9*1 6 

2840 MOVE pol( \ , 6 ),polci,71:DRAW m5 
,m6 

2850 MOVE pol(i,6),pol' 1 ,7 ; : DRAW m3 

,m4 

2860 NEXT 1 
2870 RETURN 

2880 IF na>nl+n4 THEN na=l 
2890 IF na'n1 THEN GOTO 2920 
2908 IF b(na,2)—1 THEN na=na+lsGOTO 
2880 

2910 RETURN 

2920 IF pol •; na-n 1 ,8>=1 THEN na=na+l 
sGOTO 2880 
2930 RETURN 
2940 RUN 

3000 MODE 2:CLS 

3001 FOR i=l TO n4 
3010 FOR j=l TO n4 

3020 a=C40-n4*6)/in4+2):d=(20-2*n4) 
/ (n 4+1 > 

3030 LOCATE a*j+6*<J-1), 1 *d:PRINT m 
atr i z< i , J ) ; ,,v " ; j 
3040 NEXT j 

3056 LOCATE a*< n4+1 > 4-6*n4, 1 *dSPRINT 
, '=" ;-fue( i ) 

3066 NEXT 1 

3070 LOCATE 1,23:PRINT"pulsa Cont 
inuar" 

3080 e*=INKEY* 

3090 IF e*0"C M AND e*< "c" THEN GO 
TO 3080 

3100 MODE 1sWINDOW #4,1,40,22,25:PA 
PER #4,3sCLS#4 

3110 WINDOW #2,1,40,1,5:PAPER#2,3sC 
LS#2 

3120 RETURN 
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JUEGOS 


DONKEY KONG 

La bella y la bestia 


on Giulio tenia un enonne problema. Donkey 
Kong, el gorila del circo, habia raptado a la bella 
Dolly, una de las trapecistas del circo, con la 
mtencion de vivir una aventura amorosa con ella. 
Esta claro que Dolly no querfa saber nada de tan 
velludo pretendiente, por lo que Don Giulio se 
propuso rescatarla de lo alto de la carpa del circo, 
lugar donde la habia colocado Donkey Kong. Este, 
al ver como subia el propie tario del circo a traves 
del andamiaje, se empeno en la nada pacifica 
tarea de arrojarle bidones de agua y petroleo. 

Esto suponia el tener que realizar la escalada 
mientras saltaba para evitar los bidones. Pero no 
acababan aqui las dificultades. Algunos de los 
bidones se incendiaban en mas de una ocasion y 
ayudaban a caldear el ambiente. Mas como este 
caballeroso senor no se arredraba facilmente, 
rapidamente cogio un mazo que por allf colgado 
vio y, repartiendo mamporros a diestro y 
siniestro, logro romper los bidones y apagar los 
fuegos. 

Bueno, esta es la romantica historia de amor de 
Donkey Kong y la bella Dolly, pero como estamos 
seguros de que mas de una persona estara 
dispuesta a ayudar a Don Giulio a rescatar a la 
trapecista, vamos a darles algunos consejos. 

Para que los barriles no bajen por la escalera 
por la que subimos, sera necesario sacar la mano 
justo por encima del nivel de la escalera. 

No debemos salirnos de las plataformas puesto 
que perderemos una vida. Esto mismo ocurrira si 
nos pasamos al saltar. 

Cada objeto que saltemos nos dara 100 puntos, 


si son dos 300 puntos, siendo 800 puntos si son 
tres los superados. Si en vez de saltar los 
golpeamos con el martillo, ganaremos 300, 500 u 
800 puntos. En la cuarta pantalla ganaremos 100 
puntos si quitamos los tornillos que 
encontraremos. El premio gordo, una vida extra, 
nos tocara cuando hayamos llegado a los 10.000 
puntos. 

Planteamiento simple, pero sumamente 
entretenido, el de Donkey Kong. Si anadimos la 
posibilidad de poder jugar con un amigo, los 
buenos ratos estan asegurados. 

Graficamente no es sorprendente, pero esta 
bien realizado y tiene un color agradable. Si a lo 
anteriormente expuesto, le anadimos un 
movimiento vivaracho, tendremos como producto 
final un juego realmente simpatico. 

Donkey Kong es de Ocean y es distribuido por 
Erbe. 

Digno de mencion: el tema. Simple, pero 
adictivo. 


Erbe. 

Tel. 447 34 10 

Cinta: 875 ptas. 

Disco: 














UCHI MATA 

O como aprender 
judo por ordenador 


Llegara un momenta en que todo, o casi todo, 
se pueda aprender a traves del ordenador. Sirva 
como ejemplo de este hecho, el juego de Martehc, 
Lie hi Mata. Con el podremos conocer y aprender 
a realizar todas las Haves de la milenaria arte 
marcial del judo. En un principio deberemos 
mostrar la maxima atencion a la demo del juego, 
puesto que los dos contendientes realizaran todas 
las Haves antes mencionadas. A continuacion, 
podremos jugar contra un amigo o contra el 
ordenador y... jjQue gane el mejor!! 

Con un tenia tan interesante y del que se 
podia haber sacado mucho mas partido, la gente 
de Martech no ha logrado un resultado final 
excesivamente sorprendente. Graficamente el 
juego flojo, falta definicion, y la realizacion del 
color es mediocre, ya que en algunas ocasiones da 
la sensacion de que se «va», de que se desplaza 
de la figura. El movimiento no esta mal pero es 
un tanto mecanico. 

Uchi Mata es distribuido por Erbe. 

Digno de mencion: el tema. 

A mejorar: el juego en general 


Erbe. 

Tel. 447 34 10 


Cinta: 875 ptas. 

Disco: 



PALITRON 

jjLa ciudad 

esta en peligro!! 

ponla a salvo 

con tu servo class 027 


Erbe. 

Tel 447 34 10 

Cinta: 875 ptas. 

Disco: 


Como noble caballero del siglo XXI, deberas 
salvar la ciudad con tu rapido y poderoso robot 
Servo Class 027 de los cristales explosivos que 
destruyen todo. Pero como esta mision 
representaria un peligro para tu integridad fisica, 
deberas programar y utilizar posteriormente los 
mas pequenos robots Infra Class Beast Mark 3, 
para realizar misiones que serian practicamente 
imposibles sin ellos. Los cristales podremos 
destruirlos si cogemos y tiramos sobre ellos, los 
objetos que encontremos a nuestro paso. 

LTna curiosidad destacable del juego es la 
posibilidad, ya mencionada anteriormente, de 
programar a los robots Infra-Class. Para hacer 
esto, necesitaremos una pila atomica de carga. 
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JUEGOS 


1 . anto tiempo conduciendo naves de 

que el exceso de conlianza te habia 
llevado a una relajacion de la vigilancia, y a no 
percatarte de como los estabilizadores inerciales 
de la nave se debilitan y se separan. Esto te habia 
llevado fuera de tu ruta y acercado a la orbita de 
un planeta. Tal fue el impacto, que se partfo en 
nueve trozos. Menos mal que pudiste salir a 
tiempo en uno de los modulos de supervivencia, y 
aterrizar en el planeta. Ahora te quedaba lo mas 
duro; buscar en un planeta totalmente 
desconocido los cachos de tu nave y ser capaz de 
reconstruirla para volver a la civilizacion. Si bien 
esto ya era bastante dificil, lo que vendria a 


El apartado grafico, realizado con tecnica 30, 
cuenta con una buena definicion y colores bien 
aplicados, si como un movimiento rapido y 
preciso. En esta lfnea se encuentra tambien el 
sonido que ambienta el juego. 

Palitron esta distribuido por Erbe. 

Digno de mencion: El movimiento. Auna 
rapidez y precision. 


EXPLORER 

Busca y encuentra, 

la vida te va en ello 


Proem 

S.A. 

Tel. 276 22 08 

( unta: 

880 ptas. 

Disco 2.695 ptas. 



Despues, nos pondremos al lado de uno de ellos y 
pulsaremos la tecla CTRL, para posteriormente 
utilizar las teclas de cursor o joystick, con la 
finalidad de poder ver el menu y movernos por el. 

Las cajas que hay en la parte inferior de la 
pantalla sirven o indican lo siguiente: 

Las cuatro que se encuentran en la parte 
inferior de la pantalla estan destinadas a 
almacenar los objetos que vayamos recogiendo. 

La cajita pequena en la parte inferior de la 
pantalla, sirve para mostrar la energia que 
tenemos. 

Hay otra que indica el numero de vidas con las 
que contamos. 

En el centro derecha de la pantalla se nos 
muestra el numero maximo de objetos que 
podemos soltar en esa pantalla. 

Cuando hayamos soltado una bomba, un reloj 
nos indicara el tiempo que queda para que esta 
estalle y asi podremos saber el tiempo con que 
contamos para alejarnos. 

Completo y bien realizado este juego de The 
Edge, que no dudamos que consiga hacer pasar 
buenos ratos a los jugones y a los que no lo son 
tanto. 
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continuacion pondrfa mas emocion en esta tarea. 

En Explorer debemos hacer gala de un buen 
sentido de la orientacion y estrategia acercada. 

Para movernos por el planeta deberemos 
utilizar joystick o los numeros del teclado 
alfanumerico. Nosotros recomendariamos el 
teclado, ya que confiere mayor precision. Cuando 
queramos coger un objeto, utilizar el laser, o el 
radio localizador, deberemos usar cualquier otra 
tecla. 

Pero mientras buscamos, no debemos olvidar 
que hay peligros acechantes. 

Siempre hemos opinado que sobre gustos no 
hay nada escrito, por lo que pensamos que 


aunque para nostros explorer es un tanto soso 
—demasiada busqueda, poca accion—, seguro 
que habra personas que este tipo de juegos, 
mezcla de estrategia y acertijo, les gustara. 

Este juego es graficamente aceptable, y aunque 
el color es un tanto pobre, no termina de 
desagradar. El movimiento, hecho enteramente 
por scroll, esta bien. La cosa que mas nos ha 
gustado de Explorer es el efecto zoom. De verdad 
que esta bien realizado. 

Explorer pertenece a Electri Deams y es 
distribuido por Proein S.A. 

Digno de mencion: el logrado efecto zoom. 

A mejorar: el tema. Un poco soso. 



ACES OF ACES 

Demuestra 
que eres piloto 


\ Frhr 

* IH 4 i 7 'j 

1 10 

Uint.i 875 ptas. 

Disc. 



os simuladores de vuelo siempre han tenido 
un buen numero de adeptos. De todas formas, la 
verdad sea dicha, este numero de adeptos a 
acogido siempre mejor a los simuladores de 
aviones de combate, llenos de accion y 
posibilidades. Ace of Aces entra en este concepto 
lleno, y nos permite la posibilidad de conducir 
nuestro mosquito en varias incursiones diferentes, 
para hacer una demostraciom de nuestras 
cualidades de piloto y llegar a ser un as de ases. 
Pero antes de esto habra que leerse el completo 
manual de controles de nuestro avion, para poder 
manejarlo apropiadamente. Por razones de 
espacio mencionaremos tan solo los mdicadores 
con que contamos y su funcion: 
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altura que nos hayamos. La podremos regular 
tirando o empujando el joystick. 

Horizonte artificial: nos muestra el angulo de 
nuestro avion en relacion al horizonte. 

Palanca de motores: sirve para regular las rpm 
(revoluciones por minuto del motor). Para hacer 
esto deberemos utilizar el joystick. 

Booster: sirve para poder controlar la inclinacion 
de las helices. 

Extintor: su uso es evidente. No obstante, 
cuidado con su utilizacion, los motores apagados 
por un extintor no pueden volver a encenderse. 

Trim: controla el timon del avion y, por lo 
tanto, la direccion de vuelo. 

Tren de aterrizaje: esta siempre en posicion de 
subida, pero sera interesante el bajarlo en 
ocasiones para reducir la velocidad y poder 
esquivar a los aviones enemigos. 

Flaps: sirven para variar la superficie de 
sustentacion alar del avion. Modifican la altura y 
sirven para frenar. Cuidado con hacer 
bruscamente esto ultimo. 

Despues de haber repasado los controles con los 
que contamos, pasaremos a continuacion a 
enumerar las incursiones que deberemos realizar 
para llegar a ser un as de ases, estas son: 

Bombardeo de trenes: se trata de detener un tren 
de prisioneros que va camino de Berlin, y 
liberarlos. jjCuidado con bombardear los vagones 
de la Cruz Roja!! 

Bombardeo de submarines: los submarinos 
preparan un ataque a un convoy en el Atlantico 
norte. Deberas detenerlos antes de que salgan de 
sus bases. 

Lucha aerea: cuidado con los cazas enemigos, 
aparecen al azar y son dificiles de derribar. 

Bombas V-l: destruyelas antes de que lleguen a 
Londres y lo reduzcan a cenizas. 

Completo, por no decir completfsimo, este 
simulador de vuelo de U.S. Gold. Pero como todo 
esto no servirfa de nada sin no estuviera bien 
realizado, nosotros podemos afirmar que Ace of 
Aces lo esta. Los graficos son buenos, el color es el 
que se podria esperar en un simulador, al igual 
que el movimiento. Si para terminar ahadimos 
que las acciones estan bien desarrolladas, se 
puede decir sin duda que este simulador 
convencera, como a nosotros, a mas de una 
persona. 

Aces of Aces es distribuido por Erbe. 

Digno de mencion: dentro de una lfnea 
bastante alta, el numero de acciones belicas 
tocadas. 


Cornpas: sirve para indicar nuestra direccion. 

Radar: la pantalla giratoria a la derecha del 
todo, indica la distancia relativa del avion 
enemigo. 

El indicador vertical indica la altura relativa 
del avion enemigo sobre la nuestra. 

Indicador de velocidad: nos informa de la 
velocidad de vuelo. 

Indicador de altura: evidentemente muestra a la 


JUEGOS 
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Para solicitar 
las tapas, 
remitanos 
hoy mismo 
el cupon de pedido 
que encontrara 
en la solapa 
de la ultima pagina 


^SSTRAD 






Puggs 


No necesita encuadernaci6n. 


gracias a un senciilo 
sistema de fijacidn 
que permite ademas 
extraer cada revista 
cuantas veces sea necesario. 
















Cambios en el programa 

En muchas ocasiones, una vez terminado un 
programa, nos vemos en la tediosa obligation de 
variar una palabra por otra, y esto naturalmente 
a lo largo de toda la longitud de este. 

Esta tarea puede resultar de lo mas tediosa 
cuando nos vemos en la obligation de realizarla 
sobre un buen numero de palabras. 

La utilization de esta utilidad es muy sencilla y 
solo hay que seguir las instrucciones que se nos 



soliciten. La unica precaution que deberemos 
tomar es que el programa Basic debera haber 
sido grabado previamente en ASCII, es decir, 
save «programa»,a, que es la forma que el 
locomotive emplea para este tipo de formato 
de archivo. 



Eliminar lo innnecesario 

A1 terminar un programa, siempre quedan 
caracteres blancos al final de las lfneas. Este 
programa realiza la labor de eliminarlos, con el 
consiguiente ahorro de memoria que esto supone. 

A pesar de lo sencilla que resulta esta tarea, 
esta se complica al no poder ver si realmente 
existen o no estos caracteres. 

Al igual que el programa anterior, la labor se 
realiza tratando el programa Basic a modiflcar 
como un simple fichero de texto y para lo cual, 
deberemos haber grabado este en modo ASCII.4. 


__- - v ^r^T^roirsmB 

—— TrrnTvT ^riOltibr t 

10 I Sr VI II ;T1 om$ 



, 1 , •' ; TVOm$ 

lo S opis'« wot* 

to OFEHOOT 

fo Sr*-*^*^ 

8° IF -.GOTO 70 

<aS,L EB<aS > J- . 

100 #9, 

ivO WEH® 

120 CLOSEI® 

ll^CLOSEOUL 
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Aperturas multicolores 

Con este programa conseguiremos varias 
aperturas, que podremos facilmente utilizar en 
nuestros propios programas. 

Una vez ejecutado le ofrecera la primera 
apertura grafica en espera de la pulsacion de una 
tecla, tras lo que comenzara la siguiente. 

No nos cansaremos de repetir que el verdadero 
interes de estos programitas es incitarle de alguna 
forma a que realice sus propias modificaciones y 
que estudie los distintos efectos que estas 
provocan. 

Por ejemplo, le recomendamos que juegue con 
los sistemas de impresion, OR, XOR, AND; 
seguro que obtendra buenos resultados. 



BOUTIQUE DEL ORDENADOR 


AMSTRAD PCW ... 69.500 
AMSTRAD 464 .... 39.500 

Procedentes de exposicio- 
nes o cambios. Garantizados, 
impecables. 

Consulte para unidades de 
disco, impresoras, etc... 

ENVIOS A TODA ESPANA 
Tel.: (91) 416 13 02 (tardes) 


1 0 

CL-S 



20 

DBFINT a-z 



30 

WHILE INKEY$=”” 



40 

FOE n=l TO 600 STEP 

10 


50 

PLOT 0,n,1:DRAW 600, 

n 


60 

PLOT n,0;DRAW n,400 



70 

80 

NEXT 

FOE n=l TO 600 STEP 

10 


90 

PLOT 0,n,0:DEAW 600, 

n 


100 

PLOT n ,0,0:DRAW n, 

400 


110 

NEXT 



120 

WEND 



13-0 

WHILE INKEY$=."" 



140 

FOE n=l TO 200 STEP 

4 


150 

PLOT 0,400-n,1:DEAW 

600,40 

0-n 




160 

PLOT 0,n,1; DEAW 600,n 


170 

NEXT 



180 

FOE n=200 TO 1 STEP 

-4 


190 

PLOT 0,200+n,0:DEAW 

600. 

20 

0-n 




200 

PLOT 0,200-n,0:DEAW 

600, 

20 

0+rt 




210 

NEXT 



220 

FOE n=l TO 200 STEP 

4 


230 

PLOT 0,200+n,1:DEAW 

600, 

20 

04 n 




240 

PLOT 0,200-n,1:DEAW 

600, 

20 

0-n 




250 

NEXT 



260 

WEND 




NECESITAM0S personas 


que conozcan profundamente lenguaje ensamblador del 8086'8088 y 
dominen los ordenadores compatibles IBM PC desde el punto de vista del 
Lenguaje Maquina. Se valoraran en gran medida conocimientos acerca del 

DOS. 

Si usted es uno de ellos pongase en contacto con nosotros rapidamente en 
la direccion que se indica a continuacion pomendo en lugar muy visiDle del 

sobre: 

Referencia DOS AMSTRAD Semanal 
Nuestra direccion es: 

AMSTRAD Semanol 

Carretera de Irun, km 12,400. Fuencarral. 28049 Madrid. 
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TU COLECCKjN 


Remitenos 
hoy mismo 
el cupon de pedido 
que encontraras 
en Da solapa 
de la ultima pagina. 


Solidta los niimeros 
atrasados 













UfdmknieVoue 

Computer w echten 
tmuitmtman'.a p+ta 
Arntntd, Spectrum i 
Commodore 


Aprovccha la oferta 
y cons gue tu coleccion 


Con la eompra 
de siete iiiimeros 
atrasados 
recibiras gratis 
uita clnta de 
programas de 
YOUR 

COMPUTER (el 
mejor software 
ingles), 
totalmeiite 
gratis. 


Una clnta gratis 

por la eompra 

de numeros atrasados 










Por Alberto Suner 


Ahorrar 
memoria 
en graficos (I 


Siguiendo con el tema de como incluir 
el mayor niimero posible de graficos en 
nuestros programas, en esta ocasion 
presentamos una rutina con la que se 
consigue ahorrar la mitad de memoria en 
cada uno de ellos. Esta especialmente 
indicada para aquellas imagenes que ocupen 
la mayor parte de la pantalla. 


E, 


In algun capftulo anterior ya se ha 
abordado este problema, al cual se le han dado 
algunas posibles soluciones, hoy intentaremos dar 
otra salida a este gran inconveniente que en 
algunos casos nos obliga a rechazar graficos 
verdaderamente bonitos debido a su gran 
longitud. 

Con el metodo que comentaremos a 
continuacion, estaremos en condiciones de 
ahorrar la mitad de la memoria que ocupe un 
grafico, en cualquiera de los modos de pantalla 
en que nos permite trabajar nuestro Amstrad. 

Las ventajas de la aplicacion de esta rutina son 
verdaderamente asombrosas, ahora bien, esto no 
se consigue por arte de magia, y, por tanto, 
debera existir algun inconveniente. 


10 0R6 19000 

20 
30 

40 imMftGNlFICfiDOR DE GRAFICOS*** 
SO 
60 

70 LD BC,TABLA 
80 LD HL.ESPACE 
90 JP IBCD1 
100 TABLA:DEFW NAME 
110 JP MAGNI 
120 NAME’.DEFM "MAGN" 

130 DEFB ‘I’+*80 

140 DEFB 0 

150 ESPACEIQEFS 4 

160 
170 
180 


i9 ° mi;LD A ( f w n 
200 LD (ANCHO),/)'' 

210 SLA a 

220 LD (fiNCHCl) A 
230 L0 8,0 ' 

240 LD C, A 
250 LD (L0HG),bc 
260 u? fi,(IX+2) 

A 
A 


270 SLA 
280 SLA 
290 SLA 

300 LD (ALTO),a 
310 ADD 


5 LD <SLT01),a 
■ j30 LD L,(lx+4) 
340 LD H,tix+S) 
350 LD E,(IX+S) 
3fi 0 LD D,(llf+7) 
270 LD (BUFFER),HL 


380 LD (6RAFIO.DE 
390 LD L,(IX+8) 

400 LD H.dX+10) 

410 LD (PDSIO.HL 
420 LD A.axn2) 

430 CP 1 

440 JP Z.MA6NI1 

4S0 CP 0 

460 JP Z.HA6NI0 

470 MA6NI2:CALL KIRA2 

480 CALL IMPRE 

490 RET 

500 MIRA2:LD DE,(BUFFER) 

S10 LD HL.(GRAFIC) 

S20 LD A.(ALTO) 

530 LD B.A 
540 KKK2:PUSH BC 
550 ID (PDSIN).DE 
560 LD A.(ANCHO) 

570 LD B.A 


580 KKKhXOR 
590 BIT 
600 CALL 
610 BIT 


A 

7,(HL) 
NZ.P0N67 
6,(HL) 
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Graficos por 

ORDENADOR 


El metodo utilizado para el ahorro de 
memoria, consiste en aumentar el tamano del 
grafico por dos, es decir, igual que si lo vieramos 
a traves de una lupa, con lo que, obviamente, se 
pierde algo de resolucion grafica. 

Como ya hemos dicho anteriormente, esta 
perdida de resolucion puede resultar minima, si 
se aplica a figuras relativamente grandes, ya que 
en ellas queda mucho mas disimulada la perdida 
de resolucion. 

Por tanto, aconsejariamos que este metodo se 
utilizara unicamente para graficos que esten 


El mayor problema con los 
graficos es la memoria 
que ocupam^^^^^^^_ 


destinados a ocupar gran parte de la pantalla, 
aunque se puede aplicar a figuras de dimensiones 
mas reducidas con resultados verdaderamente 
muy buenos. 

La utilizacion de esta rutina, es especialmente 
recomendada para aplicarla en aquellos graficos 
que deban ocupar gran parte de la pantalla, 
ya que se conseguira rellenar gran parte de la 
misma con una escasa ocupacion de memoria, 
con lo que se podran obtener pantallas mas 
vistosas al estar ocupadas la mayor parte de ellas 
por graficos. 

Vamos a explicar a continuacion como 
funciona cada una de las rutinas para los 
diferentes modos de pantalla. 


Para el modo de alta resolucion, el 
funcionamiento es bien sencillo, unicamente se 
trata de duplicar cada uno de los bits que 
componen un byte, con lo que se conseguira dos 
bytes de grafico aumentado por cada uno de 
grafico original. 

Esto se conseguira chequeando los bits, y en 
caso de que esten a uno, duplicarlos con unos, y 
en caso de estar a ceros duplicarlos con ceros. 

Dicha operation se realizara para cada lfnea 
horizontal. A continuacion se duplicaran lfnea 
por lfnea, con lo que se obtendra la 
magnification en sentido vertical. 

La rutina que se encarga de realizar este 
trabajo, para el modo 1 de pantalla, es similar a 
la anterior, pero en este caso deberemos tener en 
cuenta que los bits llevan, en este caso, 
information del color con que se va a imprimir el 
grafico, por lo que se debera tratar de una forma 
especial. 

Asf pues, deberemos tener en cuenta cada una 
de las parejas de bits que se encuentran en un 
byte. 



It 


V 

P0H23 


V 

>QH0i 


HO 

WP 

'two 

),(HO 

H 7,pQH0f 


VSQ LOIR 

MO POP u 

MO POP £ 

880 m m 

i.?oS" :au 

930 dfr 

L[! A, (ALTO) 

9J 0 LO B,A 

S ,n L2:PUSH * 

,f S0 M (POSIR) np 


1010 ID B,A 


1020 LLL1.-X0R 

A 

1030 EIT 

7,(HL) 

1040 CALL 

NZ.P0N67 

1050 EIT 

6,(HL) 

1060 CALL 

NZ,FDN45 

1070 EIT 

3,(HL) 

1080 CALL 

NZ.P0N23 

1090 BIT 

2,(HL) 

1100 CALL 

NZ.P0N01 

1110 L0 (DEM 


1120 XOR 

A 

1130 INC 

0E 

1140 BIT 

5,(HL) 

1150 CALL 

NZ.P0N67 

1160 BIT 

4,(HL) 

1170 CALL 

NZ.P0N45 

1180 BIT 

i,CHL) 

1190 CALL 

NZ,P0N23 

1200 BIT 

0,CHL) 
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En este caso, igual que en el anterior, 
tomaremos en primer lugar cuatro bits originales 
con lo que se lograra un byte ampliado y luego 
los otros cuatro. 

Ahora bien, los bits que deberemos tomar en 
primer lugar seran aquellos que lleven la 
informacion de los dos primeros pixels, que seran 
los bits 7, 6 con sus correspondientes parejas, 
el 3 y 2. 

El siguiente byte ampliado se formara con las 
restantes parejas de bits. 

Para el modo de menor resolucion, es decir el 
que permite mayor numero de colores 
simultaneamente, la operacion de magnificacion 
sera algo distinta a las anteriores, ya que en este 
caso el byte original unicamente es capaz de 
imprimir dos pixels 

Asf pues, el byte aumentado que se obtenga 
imprimira unicamente un pixel. Por lo tanto, en 
este caso se observara la informacion 
correspondiente al primer pixel, la cual se indica 
en alguno de los bits 7, 5, 3, 1 y se ampliara, 
consiguiendose asf el primer byte ampliado. 



la rutina reduce la 
ocupacion de una figura a 
■ - 


El restante byte magnificado se conseguira 
chequeando la informacion de los restantes bits. 

Debemos tener en cuenta que dichas 
operaciones deberan efectuarse para todos y cada 
uno de los bytes que componen el grafico 
original. 

Estas rutinas almacenaran el grafico ampliado 
a partir de la posicion de memoria que nosotros 
indiquemos, de esta forma conoceremos la 
localizacion de nuestro nuevo grafico. 

El program a que hemos preparado incorpora 
una rutina de impresion para mostrarnos la 
forma del grafico una vez magnificado, aunque 
dicha rutina se podra quitar en cualquier 
momento, con solo eliminar las llamadas que se 
hacen a la misma desde distintas partes del 
programa. 

Debemos tener en cuenta que el grafico 
obtenido finalmente, tendra una longitud doble a 
la del grafico original, cosa que deberemos tener 
presente en caso de que se quiera salvar en disco 
o cinta dicha figura. 

Para realizar esta operacion unicamente 
deberemos efectuar un save con la direccion que 
hayamos indicado en la correspondiente llamada 
al programa, y una longitud doble a la del 
grafico original. 

Para un manejo mas facil de la rutina de 
magnificacion de graficos, hemos preparado un 
nuevo comando RSX, con el cual podremos 
realizar mas facilmente las operaciones de 
ampliacion de graficos. 

Esta nueva instruction sera del siguiente tipo: 


1220 LO (BE),/} 
1230 INC 
1240 INC 
1250 OJNZ 
1260 PUSH 
X/0 LO Hi, tPOS 
1280 LD BC,(L0N£ 
1230 LOIR 
1300 POP 
1310 POP 

1320 OJHZ l 
1330 L0 fPOSIN),£ 
1340 REJ 
1350 «AGNI0:CALL 
1360 CALL ’r, 
1370 RET 

1380 MIRAO.’LO o E 

S LD 'Momfic 
J400 L8 A,(ALTO) 
1410 LD B.fl 


1420 H11I12:PUSH BC 
1430 L0 (POSIN),0E 
1440 LD A.(ANCHO) 
1450 LD B.A 


1460 HHHltfOR A 


1470 BIT 

7,CHL) 

1480 CALL 

NZ.P0N67 

1490 BIT 

5,(HL) 

1500 CALL 

NZ.P0N45 

1510 BIT 

3,(HL) 

1520 CALL 

NZ.P0N23 

1530 BIT 

1,(HL) 

1540 CALL 

NZ.P0N01 

1550 LD (DE),A 


1560 X0R 

4C7A ryr 

A 

Ib/0 INC 

DE 

1580 BIT 

6,(11) 

1590 CALL 

NZ.P0N67 

1600 BIT 

4, (HL) 

1610 CALL 

NZ.P0N45 

1620 BIT 

2,(HL) 


NZ.P0N23 

Q,(HO 

H2.P0N01 

DE 

HL 

tm 

HL 


HL 

BC 

HM2 

),0E 


O.ft 


















Mod 

Posx 


Posy 

Graf 

Dirb 

Dimx 

Dimy 


Modo de pantalla del grafico. 

. Coordenada vertical de pantalla, 
imprimira el grafico obtenido. 
Coordenada horizontal. 

Direccion del grafico original. 
Direccion del grafico ampliado. 
Altura del grafico original. 

Anchura del grafico original. 

De esta forma una vez ejecutada la rutina de 
magnification, el grafico ampliado se encontrara 
en la direccion indicada por el parametro dirb, 
con lo cual lo podremos salvar de la forma 
indicada anteriormente. 

Debemos tener cuidado con el valor que se da 
a dicho parametro, ya que un valor erroneo 
podria provocar un cuelgue del ordenador. Esto 
ocurrira si dicha direccion se encuentra cerca de 
la direccion de ejecucion del programa, es decir 
de la position de memoria &80O0. 

Asf pues, para que no ocurra nada anormal, la 
direccion del grafico ampliado, debera ser lo mas 
baja posible para que de esta forma no pueda 
interrumpir en ningun momento nuestro 
programa. 


Debemos fijarnos tambien en el valor que se le 
da a la variable mod, ya que dando un valor 
erroneo, el resultado obtenido sera inservible, 
puesto que para cada modo de pantalla se 
utilizan diferentes rutinas. 


El programa se especializa 
en graficos de gran 
famano. 


3,A 



6, 

7, 


1840 SET 
1850 RET 
1860 P0N45:SET 
1870 SET 
1880 RET 
18S0 P0N67:SET 
300 SET 
1910 RET 

1920 ; RUT INA-1MPRESI ON 
1930 }H-POSICION-VERTICAL-INIC10-1 
1940 ;L-P0SICI0N-H0RIZONTAL-INICI0-1 
1950 i0E-DIRECCIQN-6RAFICO 

1960 5 

1970 IKPRElLO HL,(PGSIC) 

1980 L0 DE,(BUFFER) 

1990 PUSH DE 

2000 EX DE.HL 
2010 L0 HL,10000-80 
2020 LD 8,0 
2030 L0 0,0 
2040 DEC E 


HL.DE 


A,R 

56 


2050 ADO 
2060 LD 06i80 
2070 S.BUClAOO W-,K 

2080 ojrz S .'y 

2090 POP " 

2100 L0 A/ALT01) 
2U0 L0 B,A 
2120 JR C0L0C 
2130 P.BUC-.LD 
2140 AKD 
2150 CP 56 

2160 JR 

2170 L0 A,H 
2180 ADD 
2190 L0 R>A 

2200 JR 00 L 0 C 

2210 P.PASILD 
2220 L0 A,H 
2230 X0R 
2240 L0 RiA 
2250 ADO 


A,8 


DE > 0080 


56 


HL.DE BUFFER:DEFS 



JOO Pji, CI;LD 
2310 L0 (Hu 
2320 INC 
2330 IRQ 
2340 0JNZ 
2350 POp 
2360 POP 
2376 BJNZ 


2380 RET 

2390 ALTO:QEF$ 


Mho:defs i 


2420 ANCR01:0EFS 


2440 L ONE:DEFS 
2450 6 RAFIC:Dffs 

2ACn Durr-.- 


2 

2 








Los valores a introducir en los parametros 
correspondientes a la dimension del grafico, 
deberan darse en caracteres, tanto en alto como 
en ancho. 

Para aquellos que deseen separar las rutinas de 
ampliacion de graficos de la rutina de impresion 
de pantalla, diremos que las correspondientes, a 
cada uno de los modos son las siguientes: 

MagmO Ampliacion para modo 0 

Magml Ampliacion para modo 1 

Magni2 Ampliacion para modo 2 

Para la utilizacion de esta rutina, deberemos 
copiar el listado ensamblador que aparece al final 
del articulo, y una vez ensamblado salvarlo en 
cinta o disco. 

Aquellos que no posean ensamblador pueden 


utilizar el cargador Basic que aparece a 
continuation, y una vez ejecutado, en caso de no 
existir errores, almacenarlo de la forma siguiente: 

SA VE ’ ’ M AGNI ”,B, &9OO0, & 1 DE 

Cuando deseemos ejecutar el programa, 
deberemos cargar el codigo objeto en la direccion 
de memoria &9OO0, realizando una llamada a 
dicha direccion para inicializar los nuevos 
comandos RSX. 

A partir de ese momento estaremos en 
disposition de ampliar los graficos que deseemos 
en cualquiera de los modos de pantalla. 


PROGRAMA CARGADOR 


1 m AHDRRAR HEHGRIA.EN GRAFICOS(II) 

2 REM PROGRAMA CARGADOR 
10 FOR N=49000 TO 491DE 
20 READ A:SUHA=SUHA+A 
30 POKE N,A 

40 NEXT 

SO IF SUKA06S991 THEN PRINT 
'ERROR EN DATAS" 

60 DATA 1,9,144:33,20,144,195 
70 DATA 209,188,14,144,195,24,144 
80 DATA 77,65,71,78,201,0,0 
90 DATA 0,0,0,221,126,0,50 


100 

DATA 

223,145,203,39,50,225,145 

110 

DATA 

6,0,79,237,67,228,145 

120 

DATA 

221,126,2,203,39,203,39 

130 

DATA 

203,39,50,222,145,135,50 

140 

DATA 

224,145,221,110,4,221,102 

150 

DATA 

5,221,94,6,221,86,7 

160 

DATA 

34,232,145,237,83,230,145 

170 

DATA 

221,110,8,221,102,10,34 

180 

DATA 

226,145,221,126,12,254,1 

190 

DATA 

202,194,144,254,0,202,33 

200 

DATA 

145,205,106,144,205,150,145 

210 

DATA 

201,237,91,232,145,42,230 

220 

DATA 

145,58,222,145,71,197,237 

230 

DATA 

83,128,145,58,223,145,71 


240 DATA 175,203,126,196,145,145,203 
250 DATA 118,196,140,145,203,110,196 
260 DAIA 135,145,203,102,196,130,145 
270 DATA 18,175,19,203,94,196,145 
280 DATA 145,203,86,196,140,145,203 
290 DATA 78,196,135,145,203,70,196 
300 DATA 130,145,18,19,35,16,20? 

310 DATA 229,42,128,145,237,75,228 
320 DATA 145,237,176,225,193,16,184 
330 DATA 237,83,128,145,201,205,201 
340 DATA 144,205,150,145,201,237,91 
350 DATA 232,145,42,230,145,58,222 
360 DATA 145,71,197,237,83,128,145 
370 QAfA 58,223,145,71,175,203,126 
380 DATA 196,145,145,203,118,196,140 
390 DATA 145,203,94,196,135,145,203 
400 DATA 86,196,130,145,18,175,13 
410 DATA 203,110,196,145,145,203,102 
420 DATA 196,140,145,203,78,196,135 
430 DATA 145,203,70,196,130,145,18 
440 DATA 19,35,16,207,229,42,128 
450 DATA 145,237,75,228,145,237,176 
460 DATA 225,193,16,184,237,83,128 
470 DATA 145,201,205,40,145,205,150 
480 DATA 145,201,237,91,232,145,42 
490 DATA 230,145,58,222,145,71,197 


500 

DATA 

237,83,128,145,58,223,145 

510 

DATA 

71,175,203,126,19G,145,145 

520 

DATA 

203,110,196,140,145,203,94 

530 

DATA 

196,135,145,203,78,196,130 

540 

DATA 

145,18,175,19,203,118,196 

550 

DATA 

145,145,203,102,196,140,145 

560 

DATA 

203,86,196,135,145,203,70 

570 

DATA 

196,130,145,18,19,35,16 

580 

DATA 

207,229,42,128,145,237,75 

590 

DATA 

228,145,237,176,225,193,16 

600 

DATA 

184,237,83,128,145,201,0 

610 

DATA 

0,203,139,203,207,201,203 

620 

DATA 

215,203,223,201,203,231,203 

630 

DATA 

239,201,203,247,203,255,201 

640 

DATA 

42,226,145,237,91,232,145 

650 

DATA 

213,235,33,176,191,66,22 

660 

DATA 

0,29,25,17,80,0,25 

670 

DATA 

16,253,221,225,58,224,145 

680 

DATA 

71,24,21,124,230,56,254 

690 

DATA 

56,40,6,124,198,8,103 

700 

DATA 

24,8,17,80,0,124,238 

710 

DATA 

56,103,25,197,229,58,225 

720 

DATA 

145,71,221,126,0,119,221 

730 

DATA 

35,35,16,247,225,193,16 

740 

DATA 

216,201,0,0,0,0,0 
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C/Duque de Sesto, 50. 28009 Madrid 
Tel. (91) 275 96 16 - 274 75 02 

Metro O’Donnell o Goya (aparcamiento gratuito en Felipe II) 



^aW" 0GRAMAS ' 

•^SSK 


- 

PTAS. 



PTAS. 1 

FIST II . 

875 

XEVIOUS ... 


875 

DEEP STRIKE 

875 

10th FRAME ... 


1200 

SUPER SOCCER 

875 

LEADERBOARD 


1200 | 

TERRA CREST 

875 

EXPRESS RAIDER 


875 

DOUBLE TAKE 

. 875 

ACE OF ACES 


1200 | 

SHORT CIRCUIT ... 

. 875 

IMPOSSABALL 


875 

GAUNTLET . 

875 

SIGMA 7 . 


875 

ARMY MOVES 

875 

BAZZOKA BILL .... 


875 

BREAKTHRU 

875 

DRGON'S LAIR II . 


875 

4 SUPER 4 

.1750 

SHADOW SKIMMER 


875 | 


jjNOVEDADES KONAMI .. 

1850 PTS 11 





PTAS. 

DISKETTE 3". 

735 

DISKETTE 5 1/4“ DC/DD 

295 

LAPIZ OPTICO SPECTR 

2890 

LAPIZ OPTICO AMSTRAD . 

3290 

CINTA C-15 ESPEC. 

69 

MICRODRIVE . 

495 

ARCHIVADOR DISCOS. 

_ 

2600 



PTAS. 

SANYO MSX 64 . 

28.900 

COMMODORE 128 . . 

54.900 

COMMODORE 128 + TECL MUSICAL 

57.900 


MPRESORAS 20% DESCUENTO SOBRE P.V.P. 


CASSETE ESPECIAL ORDENADOR 3.495 PTS. Y 3.995 PTS 


COMPATIBLE PC-IBM 640 K 
2 BOCAS 360 K 
MONITOR F0SF0R0 VERDE 
149.900 PTS. (inti. IVA) 


. ssagguS’ 


SERVICIO TENICO REPARACION TARIFA FIJA: 3.600 PTS 
(inch provincias sin gastos envio) 

SPECTRUM PLUS + CASC0S MUSICA STEREO 
19.800 PTS (incl. IVA). 


CABLES E INTERFACES 
20% DTO. SOBRE P.V.P. 


CADENA MUSICAL 27.900 PTS. 
VIDEO VHS AKAI 79.900 PTS. 
RADI0CASETTE STEREO 6.895 PTS. 


AMSTRAD 464 VERDE 
AMSTRAD 464 COLOR 
AMSTRAD 6128 VERDE 
AMSTRAD 6128 COLOR 


ENTRADA 7.000 PTS. 12 MESES A 4.900 PTS. 
ENTRADA 9.800 PTS. 12 MESES A 7.500 PTS. 
ENTRADA 8.900 PTS. 12 MESES A 7.182 PTS. 
ENTRADA 14.900 PTS. 12 MESES A 9.900 PTS. 


12 MESES CON EL 0% DE INTERES. jjMICRO-1 TE LO FINANCIA GRATIS!! 


RATON PARA AMASTRAD Y COMMODORE CON SOFTWARE 6.900 PTS. 


PEDIDOS CONTRA REEMBOLSO SIN NINGUN GASTO DE ENVIO 
LUMA POR TELEFONO. ADEUNTAS TRES DIAS TU PEDIDO 
TELF. (91) 274 75 02 / (91) 275 96 16 (DURANTE US 24 HORAS) 

TIENDAS Y DISTRIBUTES, PIDAN LISTA DE PRECIOS AL MAYOR. 

C/ GAUTEA, 25. TELF. (91) 274 75 03 









































































HARM A 


de Proa 
P.V.P.: 67.200 


Ofrece un interesante 
programa dc calculo de 
estructuras de hormigon 
armado, que dara acceso a 
los profesionales de la 
arquitectura e ingenieria a la 
resolucion, mediante 
ordenador, de los antes 
complicados y largos calculos 
de porticos. 

La resolucion mediante 
calculo matricial permite una 
mayor fiabilidad y seguridad 
en los calculos, asi como un 
gran ahorro de tiempo. 

Por otra parte, la mayor 
seguridad en los calculos, 
comporta una notable 
reduccion de costos de obra 
para el constructor. 

El programa Harma calcula 
cualquier portico piano de 
nudos rigidos con vigas y 
pilarcs de seccion constante, 
por lo que resulta ideal para 
el calculo de porticos de 
hormigon armado. 

Utiliza el metodo matricial 
de las deformaciones, 
determinando tanto las 
debidas a flexion como las dc 
esfuerzos axiales. 

1. Capacidad: 

La capacidad depende de 
la maxima diferencia de 
numeraciones entre nudos 
extremos de la barra. 

Como dato orientativo 
podemos decir que en una 




v\o%° 
de 

SOFTWARE 
PCW 


reticula sin ningun tipo de 
modificacion (que la maxima 
diferencia entre extremos de 
barras sea igual a los vanos 
mas uno) admite alrededor 
de cien nudos. 

Asf, por ejemplo, un 
portico de cuatro vanos, 
admitiria veinte pisos, uno 
de tres vanos, treinta pisos, 
etcetera. 



2. Entrada de datos: 

a. Geometricas: 

La entrada dc datos se 
realiza mediante un editor 
grafico a partir de la 
generacion de una reticula 
de vanos y plantas quo 
sirve de base para el 
diseno final de la 
estructura. 

No tenemos ningun tipo 
de restriccion respecto a la 
geometria, por lo que 
podremos fijar hasta barras 
inclinadas, muy utiles para 
incluir, cn la reticula de 
vigas y pilares, escaleras y 
cubiertas inclinadas. 

Tampoco hay 
restricciones en vinculos 
externos, que pueden ser 
empotramientos, 
articulaciones, apoyos 
horizontales o verticales, 
asi como voladizos. 

b. Car gas: 

Harma admite hasta diez 
hipotesis simples con un 
numero maximo 
de diez combinaciones 
entre ellas, con un numero 
de cargas practicamente 
ilimitado para cada 
hipotesis. 

Por ejemplo, en una 
estructura de 178 nudos, 
admite un maximo de 480 


cargas en barras y 480 cargas 
en nudos. 

3. Salida de resultados: 

a. Hipotesis simples. 

El programa nos da los 
desplazamientos de los 
nudos en centimetros y 
sus giros en grados asf 
como los esfuerzos 
intermedios en todas las 
barras en toneladas y 
metros. 

Proporciona tambien las 
rcacciones en los nudos 
soportcs (generalmente las 
zapatas) por el metodo de 
equilibrio de fuerzas en 
nudos. 

b. Combinaciones dc hipotesis: 

Opcionalmente pueden 

darnos los esfuerzos y 
armado, en centimetros 
cuadrados, en cinco 
secciones por barra. 

Estudia la combinacion 
mas favorable de hipotesis 
y da el armado, en 
centimetros cuadrados, en 
todas las barras. 

Dibuja el armado 
longitudinal y transversal 
de las vigas en la 
combinacion mas 
desfavorable de hipotesis. 
Ademas, podemos elegir y 
cambiar la escala a la que 
salen los resultados. 

La representacion de la 
viga se hace en seccion 
tanto logitudinal como 
transversal, con la 
representacion de anclajes 
y montajes de armaduras 
segun la EEI-82. 


CLUBS DE VIDEO 


de Megsoft 

P.V.P.: Sin confirmar. 

La amplia dilusion de que 
gozan los Video-Clubs se ha 
visto facilitada por los 
programas dirigidos a estos 
comercios, cuyo trabajo de 
control y seguimiento es 
demasiado intenso. 

Por ello, como ya en otras 
ocasiones hemos comentado 
en este catalogo de PCW, es 
inestimable la ayuda prestada 





































por estos programas a los 
Video-Clubs, en los que el 
usuario tan solo rcquiere 
elegir aquel programa cuyas 
prestaciones mejor se 
adecuen a sus 
requerimientos. 

De aquf nuestro interes de 
ofrecer la mas detallada 
informacion sobrc las 
posibilidades que nos ofrcce 
cada producto. 

La presente aplicacion ha 
sido desarrollada para llevar 
todo el control de socios, 
pehculas, movimiento y 
realizacion automatica de 
recibos, de acuerdo con los 
siguientes criterios: 

1. Fichero de socios: 

• Datos personates. 

• Fecha de inicio como 
socio. 

• Tipo de sistema de 
video. 

• Datos bancarios para 
cl caso de que el recibo 
este domiciliado. 

• Altas, bajas, consultas 
y modificaciones. 

2. Control de los movimientos 
de cada cliente, 
presentandose en 
pantalla todos ellos por 
el nombre del cliente, 
codigo de la pelicula, 
fecha de la entrega y 
de devoluciones 

de la misma. 

3. Fichero de peluulas: 

• Altas, bajas, consultas 
y modificaciones. 

• Listados. 

4. Realizacion de recibos, que 

* incluyen los siguientes 

conceptos: 

• Importe. 

i • Vencimiento. 

• Datos pago cliente. 

• Penalizaciones. 

El ordenador calcula 
las penalizaciones para 
los casos de socios de 
propiedad o de alquiler. 
En ambos casos, 
aparece el cargo en el 
recibo y un comentario 
sobre dicho cargo. 

5. Listados y consultas por 
pantalla e impresora: 


• Listados dc socios. 

• Penalizaciones. 

• Diario de los 
movimientos de 
pehculas dc propiedad y 
de alquiler. 

• Consulta sobre 
tenencia dc pehculas. 

• Listado de pehculas. 

6. Realizacion de etiquetas: 

Esta opcion nos 
permite agilizar diversos 
tramites, como por 
ejemplo el envfo de 
circulares, empleando 
los datos que hemos 
almacenado cn el 
programa. 


CONTROL DENTISTA 

de Novus Software 
P.V.P.: 29.192 ptas. 

Este programa esta dedicado 
a los profesionales de la 
estomatologia y odontologfa, 
es decir, a los dentistas. 

El objetivo es reducir el 
tiempo que el medico tiene 
que dedicar a la gestion de 
ficheros, dandole una mayor 
fluidez y organizacion, para 
que pueda dedicar un tiempo 
mayor al ejercicio estricto de 
u profesion. 

Lo mejor es que no se 
necesita tener ningun 
conocimiento de informatica 
para manejar este programa 
Su utilizacion es muy sencilla. 
Es mas, el mismo programa 
va guiando e impidiendo que 
se cometan errores. 

Funciona mediante un 
sencillo sistema de fichas que 
el medico puede clasificar de 
acuerdo con los criterios que 
considere oportunos y siempre 
con la posibilidad de una 
rapida y sencilla modificacion. 
De la ficha principal de cada 
paciente cuelgan las de nueva 
visita, las de protesis, etc. De 
esta manera tan sencilla, se 
agilizan el tiempo y el espacio 
dedicados a los ficheros y su 
localizacion. 


Todos los datos se 
actualizan automaticamente, 
desde los economicos hasta la 
edad del paciente. 

Una de las caracteristicas 
mas importantes del 
programa, desde el punto de 
vista de un profesional, es que 
las fichas de protesis se 
adaptan a las normas 
odontologicas y, ademas, se 
han realizado, graficamente, 
de tal forma, que con una 
rapida ojeada permiten 
conocer la composicion de la 
protesis, en cuanto a nurnero 
y disposicion de las piezas. 

Un aspecto importante son 
los listados que emite, en los 
que aparece la ficha completa 
del paciente, con su saldo 
economico incluido. 
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jPuede ganar un equipo de alta 
fidelidad con Compact Disc! 



Las posibilidades sonoras de los ordenadores Amstrad estan fuera 
de toda duda. Se puede hacer musica con ellos y buena. Por esta 
razon , AMSTRAD Semanal organiza este concurso, ofreciendo como 
premio a los ganadores un equipo musical de alta fidelidad de la 
marca Investronica, modelo CD-300 hf con Compact Disc. 




















BASES 

1. _ El concurso se divide en tres 
categorias diferentes. Cada concursante puede 
optar por una de ellas, por las dos o por las 
tres si lo desea. 

Primera categorfa: consiste en la creation 
de un tema libre. Se puede enviar una 
melodfa, cancion o cualquier tipo de musica. 

Segunda categorfa: el concursante debera 
enviar los siguientes sonidos: 

— sonido de llamada telefonica 

— ruido de explosion 

— sonido de un disparo 

— ruido de arranque de un coche o moto 

— sonido que produce el despegue de una 
nave espacial 

Tercera categoria: esta categoria se reserva 
en exclusiva a los PCW por la clara 
inferioridad en que se encuentran respecto al 
resto de ordenadores de la gama Amstrad. 
Aquf se premiara la mejor melodi'a segun lo 
expresado en la primera categoria o los 
mejores cinco sonidos que se especifican en la 
segunda. Por lo tanto, los concursantes pueden 
enviar melodfas, sonidos o ambas cosas a la 
vez. 

2 . _ Las melodfas y/o los sonidos, en las 

tres categorias deberan enviarse a la'redaccion 
de AMSTRAD Semanal en forma de 
programa, bien en Basic, en Lenguaje 
Maquina o en programa cargador a base dc 
lineas Data. No' se admitiran ficheros binarios, 
o una mezcla de ambos lenguajes. El soporte 
sera una cinta de cassette o un disco, en el 
formato requerido por el modelo de ordenador 
Amstrad para el que se hay a escrito. 

3 . __ El disco o cassette debera enviarse a la 
siguiente direccion: 

CONCURSO MUSICAL 
AMSTRAD SEMANAL 
APARTADO 226 
ALCOBENDAS 
MADRID 

4 . Este concurso esta abierto a todos los 
usuarios de ordenadores de la gama Amstrad, 
sin exception, cualquiera que sea el modelo. 

5 . - El plazo de envfo de las melodfas y 
sonidos para el concurso comienza a partir del 
dfa 10 de febrero y finalizara el dfa 10 de 
mayo de 1987. Las cartas con matasellos 
posteriores a esta fecha no entraran en 
concurso. 

5 _ Cada concursante puede enviar, dentro 

del plazo, una sola carta conteniendo su 


creacion. Si decide optar por ambos temas, la 
melodfa libre y los cinco sonidos, debera 
enviarlo todo junto en el mismo sobre, 
convenientemente separados para facilitar su 
identification. 

7 .. El jurado estara formado por don 
Francisco Pastor del Pueyo (director de Erbe 
software), don Carlos Toro Montoro 
(compositor) y don Jose Luis Arriaza Ovran 
(locutor del programa «Sabado chip» de la 
cadena COPE). 

8 . - - Cada uno de los ganadores de las tres 
categorias recibiran un equipo de alta fidelidad 
«Investronica CD-300 ht». No podra recaer 
mas de un premio en la misma persona. Para 
ello el jurado comenzara calificando por la 
primera categoria, luego la segunda y despues 
la tercera. El concursante que resulte ganador 
en la primera categorfa sera eliminado, una 
vez que el jurado pase a calificar la segunda, 

si es que tambien ha participado en ella, y asf 
en los siguientes casos. 

Los premios seran enviados mediante 
agencia de transporte puerta a puerta 
(transporte por carretera para la peninsula y 
marftimo para las islas). 

9 . _ Se regalaran tres equipos de alta 

fidelidad repartidos entre las tres categorias: 

— a la mejor melodfa 

— a los mejores cinco sonidos 

— a la mejor melodfa o mejores cinco 
sonidos en PCW. 

10 El jurado se reunira y valorara las 
creaciones de los concursantes durante la 
primera quincena de mayo de 1987. De los 
re suit ados se informara cumplidamente en la 
revista. La decision del jurado sera 
protocolizada por un notario y cualquier lector 
podra solicitar el acta notarial siempre que lo 
haga dentro de los tres meses posteriores a su 
fecha de emision. 

11 Los agraciados' recibiran 
comunicacion personal por correro certificado 
de AMSTRAD Semanal. 

12 .— Todos los program as enviados por los 
concursantes quedan en propiedad de la revista 
AMSTRAD Semanal, reservandose el derecho 
de publicacion si lo considerara oportuno. 

13 _ La participacion en este concurso 
implica la aceptacion total de todas las bases. 
Cualquier supuesto que se produzca, no 
especificado en estas bases, sera resuelto por 
HOBBY PRESS, S.A. 







Sopa de letras 

Por: Antonio Aguilera 

La informatica es una asignatura que cada vez se va a 
revelar de mayor importancia para nuestro futuro y el de 
nuestra familia. Por eso, los programas que combinan lo 
entretenido con el aprendizaje merecen la pena. El 
programa Sopa de letras esta encaminado en esta 
direccion. A la vez que constituye un reto a la retentiva y 
agilidad visual, las palabras que hay que descubrir 
forman una serie de terminos constantemente utilizados en 
informatica. Familiarizarse con ellos es un primer paso para 
llegar a conocer de esta pronto, imprescindible disciplina. 


T1 

ste juego es la clasica sopa de letras 
I ■ ■ en la que hay que buscar la palabra 
que aparece en la parte superior 
derecha de la pantalla. 

A1 empezar el juego, se debe introducir el 
numero de palabras a buscar en cada partida. 
Una vez que se ha escondido ese numero de 
palabras en la sopa (una palabra en cada sopa), 
aparecen los porcentajes de aciertos y errores. 

Una vez encontrada la palabra escondida, se 


VARIABLES 

na 

Numero de aciertos. 

nf 

Numero de fallos. 

n jP 

Numero de palabras por 


partida. 

P$() 

Matriz con las palabras. 

mp$() 

Matriz de la sopa de letras. 

p$ 

Palabra a buscar. 

bft 

Bandera de tiempo acabado. 

x,y,cf 

Coordenadas y direccion de 


la palabra a buscar. 

c,f,dir 

Coordenadas y direccion da- 


das por el jugador. 

1 

Longitud de la palabra. 


debe introducir la columna y la lila en la que se 
encuentra la primera letra de la palabra (si la fila 
es menor que 10, hay que poner un cero 
delante). A continuacion, mediante las teclas de 
cursor, la direccion en que esta escondida la 
palabra, teniendo en cuenta que no estara en 
diagonal. Para ello se dispone de un tiempo 
de 20 segundos. Todas las palabras que pueden 
ser escondidas estan relacionadas con la 
informatica. 


ESTRUCTURA 

10-210 

Rutina principal. 

250-700 

Inicializacion. 

740-1030 

Inicializacion. 

1070-1180 

Esconde palabra. 

1220-1360 

Pantalla. 

1400-1650 

Respuesta del jugador 

1690-1730 

Comprueba respuesta. 

1770-1850 

Porcentajes. 

1890-1910 

Cronometro. 

1950 

Fin de tiempo. 

1990-2350 

Subrutinas para 


esconder palabra. 
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id rem ************************** 

20 REM * SOPfi DE LETRAS * 

30 rem tut ********************** 

40 REM t Antonio Fernando * 

50 REM i Aguilera Roaera * 

60 REM * GRANADA. * 

70 rem ************************** 

80 G0SU8 2S0: titulo 
90 G0SUB 740:' initialization 
100 na=0:nf=0:nop=0 
110 WHILE. nopCnjp 
120 nop=nop+l 

130 6DSUB 1070:" esconde palabra 

140 60508 1220:- pantalla 

150 60SUB 1400:" respuesta 

160 GiJSUB 1690: - cotprueba respuest 

a 

170 WENS 

180 GOSUB 1770:' percentages 
190 np^”: WHILE npK>"S" AND npf<> 

0 N": npi=UPP£Rt(INKEVI):WEND 

200 MODE 1:INK 0,13:INK. 1,0:INK 2,2 

: INK 3,24:BORDER 13 

210 IF npl="S“ THEN 100 ELSE CLEAR: 

END 

220 REM ************ 

230 REM * TITUL0 * 

240 rem ************ 

250 MODE 1 

260 INK 0,13:INK 1,0:INK 2,13:INK 3 
,24:BORDER 13 

270 PAPER 0:PEN i:CLS:CLG 0 
280 WINDOW 2,39,2,24 
290 PAPER 0:CLS 
300 PEN 2 

310 LOCATE 1,23:PRINT "SSPA S£ LETS 
AS" 

320 LOCATE 1,1 

330 FOR x=16 TO 16*15 STEP 2:F0R y= 


16 TO 32 STEP 2 

340 If TESTCx,y)=2 THEN PLOT x+195, 

(y+1SO)*2,3:ORAWR 0,2:PL0TR 4,4,l:B 
RAWR 0,-2 
350 NEXT:NEXT 

360 LOCATE 1,23:PRINT STRIN6$C14,32 
) 

370 INK 2,3 

380 WINDOW 1,40,1,25 

390 x=l:y=l:ancho=38:alto=24 

400 PEN 2:LOCATE x,y:PRINT CHRM213 

)}ST RIN6$(anc ho,143)j CHRt(212) 

410 PEN 3:PAPER 2:L0CAT£ x.ylPRINf 
CHR$(223):LOCATE x+antho+1,y:PRINT 
CHR4C222) 

420 PAPER 3:PEN 2 

430 FOR n=l TO aito-1 

440 LOCATE x,y+n:PRINT CHR4(20?):L0 

CATE x+antho+1,y+nlPRINT CHRK207) 

450 NEXT 

460 PEN SILOCATE x,y+alto:PRINT CHR 
$C2i4HSTRIN6tCancho,143);CHfiH:21S) 

: 

470 PEN 2:PAPER 3: LOCATE x.y+alto.’P 
PINT CHKtC220):LOCATE x+antho+1,y+a 
I to:PRINT CHRIC221); 

480 WINDOW 2,39,2,24 

m PLOT x*ib- ib,40o-yjl6u4,i:DT;R'w 

fi (antho+2)*lb-2,G 

500 DRAWR 0,-16*(a Ito+1)+2:DRAWS -( 

ancho+2)*16+2,0 

510 DRAWR 0,16*iaIto+li-2:DRAWR 14, 
-14 

520 DRAWR ancho*16+2,0:DRAWR 0,-10 
(aito-i)-2 

530 DRAWR -ancho*16-2,0:DRAWfi 0,16* 
Cal to-1)+2 

540 F'LOTR ancho* 16+2,0:DRAWR 14,14 
550 PLOTR -14,16*a1to+2):DRAWR 14 


Sene 

a® 


560 PLOTR -(antho+l)*S6-2,14:DRAWR 
-14,-14 

570 ORIGIN 112,112,112,520,112,286: 
CIS 2 

580 FOR i=0 TO 416 STEP 20;PUJl 416 
-1,0:DRAW 0,i/2.36:PLuT i,0:DRAW 41 
6,i/2.36:PLOT 416-i,1?6:DRAW 0,176- 
i/2.36:RLDT 416-i,i76:DRAW 416.1/2. 
36:NEXT 

590 PAPER OIPEN 3:LOCATE 1,20:PRINT 
S TRIN6SC38,154):LOCATE 1,22: PRINT 
STRINGK38,154)i 

600 PEN 1:LOCATE 2,2l:PRINT USING " 
4";CHR4(l?4);''Nusero de palabras po 
r partida? "j 
610 njpl 1 "" 

620 al="”:WHILE atOCHfi$( 13) AND LE 
NCnjp$K4 

630 a4=INKEY4:IF a»= ! " THEN 630 
640 IP (ASC(af)>4? AND ASC(a*K58) 
THEN PRINT a»;:njp$=njp4+at 
650 If ASC(a*)=127 AND LEN(njpl) TH 
EN n.i p$=RIGHTti n j pi, LENC ni pt) -1): Pfi 
INI CHR$(8);CHR4(!6)i 
660 WEND 

670 njp=VAL(njpi) 

680 IF njpU OR njp>12 THEN LOCATE 
l,2i:PRINl STRING*'38,32);:PEN 1ILO 
CATE 1,20:PRINT STRIN6$i38,154):LDC 
ATE 1,22:PRINT 8TRlNGtC38,154):PEN 
SILOCATE I4,2l:PRINT "ENfftE 1 Y 12" 
:fOR r=l TO 1500:NEXT:LOCATE l,2l:P 
PINT SrRIN6ti38,32):6DTD 590 
690 LOCATE l,2i:PRINT STR!N6*(38,32 
);P£N i:LOCATE i,20:PRINT STRINGiO 
8,154).‘L0CATE 1,22:PRINT ST RING* (38 
,154):PEN teLOCftTE 10,21:PRINT "NUM 
ERO DE PALABRAS:"IMI0*(STR$(njp),2) 
700 RETURN 

710 REM ******************** 

720 REM * INICIALIZACION * 

730 REM ******************** 

740 RANDOMIZE TIME 
750 DIM p*(114) 

760 FDR i=l TO 114 
770 READ ptU) 

780 NEXT 

790 xU)=8:y(1)=13:xC 2)=8:y(2)=17:x 
(35=6:y(3)=15:x(45=i0:y(4)=15 


,-14 


OBCOErCHUrifLUNO 


01 IWRESORA 
-82 

|| COLUHNA <a-o> A 
OS 

0 j* 

0? *n.A C01-1S) 

08 


Nunwo <** palabras 10 
Glabra niuiero 1 
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800 DIM »piil5,12) 

810 SYMBOL AFTER 245 

820 SYMBOL 246,255,254,252,248,240, 

224,182,128 

830 SYMBOL 247,255,255,0,0,0,0,0,0 
840 SYMBOL 248,128,182,224,240,248, 
252,254,255 

850 SYMBOL 249,0,0,0,0,0,0,255,255 
860 SYMBOL 250,255,255,0,0,0,0,0,0 
870 SYMBOL 251,255,127,63,31,15,7,3 
,1 

880 SYMBOL 252,0,0,0,0,0,0,255,255 
890 SYMBOL 253,1,3,7.15,3!,63,127,2 
55 

SCO SYMBOL 254,192,192,192,192,192, 
192,192,192 

910 SYMBOL 255,3,3,3,3,3,3,3,3 
920 cu$=CHfi«10)*SfftIN6$(2,8) 

930 f1$C1)=CHRI< 253)+ChRt(248 >+cut+ 
Ch'Rt{255)+CHfi$(254) 

940 fii(2)=CHR»(255)+CHR4(254) H u$+ 
Criftl (251 >+CRfitC 246) 

950 f1$(3)=CHR$C2S3)+CHR$<248)+cu$+ 
CHRt {251)+CHft$(250) 

960 11It4)=CRR${2495+CHRJT248)+cu$+ 
CHK$(£50)+CHKt(246) 

970 RETURN 

980 DATA DIMENSION,MUNITOR,TECLAOO, 
AMS7 m, F’RuGRAMA, GRAf I CDS, SON I BO, PE 
Rli-VfilCo, I MFRESORA, oROENAOOR, IN TtRF 
ACL,DISCO,SALIOft,CURSOR,JDYSTICK,CO 
NEC TDK,CASSEf TE,CIN fA,CAOENA,FRoCES 
AOOR 

990 DATA COLOR,NUMLRli.LLlRA,NUMERIC 
0, TINTS, Bumt, FOSE OKI), fiCCtSO, ARCHIV 
0, DAT OS, Ltd ORA, SIS1EMA, CHI F, SILICI 
0, DISKETTE, SIMULASOR, CEN dONICS, PAN 
T SllA,MAT R12,ESCRITURA,GRABACION,IN 
FORMATICA,MEMOSIA,BASIC,LOGO 
1000 DATA PASCAL,fOKIH,ENSAMBLADOR, 
LENSUAJt,CA lCULU,GES fION,APLICACIUN 
, SUL TwSRE, HARDWARE., CARACT LR, DINAR! 0 
, DECIMAL, HEXAOECIMAL, PfiDGRAMAOuR, AN 
ALIS1 A,BDClE , CONDIClON,ERROR,MENSAJ 
t,ORGANIGRAMA,ENVULVENTE 
1010 DATA DRDINDGRAMA,RUERTA,AUDIO, 
VIOEU.CANAL,VENTANA,uPERAOOR,PERSON 
Al,LINEA,CONANOO,FUNOION,V iOEOJOEGO 
, AVEN TURA, 8ESOU5C ION 
1020 DATA SuPiiKlE,EDITOR,TARJEIA.AL 
I MEN TAOOft, AMPLI AC I ON, 80S, EX.PANS I UN, 
CDMF'A) IDLE, SUBRUT IN A, APREND12 AJE, AC 
UPlADuR, UN I m , LOG ICA, GENERADufi, 01G 
IT AL.ANALOGICO,CUDIGO,RUT INA,ACUMUL 
ADOR 

1030 DATA ALEATORIC,SECUENCIAL.OPER 
ATIVo,ffilCCIUN.PRICCIUN,INSEXAOOS,I 
NTERC AMBI Cl, USU AR10, CONE XION,TRATAMI 
£N TO, TEX TOS, ftESVLTAM, ALMACEN, ClHtFR 
Ol.BEDQUE 



1040 REM 
1050 REM * ESCGNDE PAlABRA * 

1060 m nmmmmtmm 

1070 p$=pt<lNl(RN0*il4+m 
1080 FOR 1=1 TO 15:FOR j=l TO 12 
1090 i#pl(i,j}="” 

1100 NEXT:NEXT 
1110 f=0:c=0:dir=0 
1120 i-LENCpt) 

1130 cf=INKRN0*4+l) 

1140 ON tf 60SUB 2290,2190,2090,199 
0 

1150 FOR i=l TO 15:FOR j=l TO 12 
1160 IF np»(i,}>="" THEN ifipiCs,j)=C 
HRilINI(RN0Y26+65)) 

1170 NEXT:NEXT 
1180 RETURN 

%U 

1200 REM * PREPARA PANTALLA DE JUEG 
0 t 

m 

1220 CLG OIMOOE 1:INK 2,2 

1230 VINOUy 10,1,40,1,25:PAPER #0,0 

:as: pen #0,i:wiNDoy 11,25,40,1,2s: 
PAPER ll,2:CLS #i:pen #1,3 
1240 WINDOW #6,1,24,20,25:PAPER #6, 
2:PEN #6,3:CIS #6 

1250 LOCATE #1,FIXC9-LEN(p$)/2),2:P 
RINT t!,p$ 

1260 INK 1,13 

1270 FOR j=l TO 12:FOR 1=1 TO 15:TA 
6 :PLOT i*20,399-jY20,1:PRINI »p*Ci, 
j)j:N£XT:TA6UFF:PBINT:NEXT 
1280 var=0:FOR i=l 10 15:TAG:PLOT i 


420,399,3:PRINT CHR JCfcS+var);: valv¬ 
ar* l: NEXT: TAGOFF 

1290 J5u»=l:F0fi j=1 TO i2:TAG:PLuT 3 
20,399-3^20,3 


1300 IF nu»<10 THEN nus$=" 0"+RI6Hf 
J CST Rt( nu«), 1): PR I NT n u»U ELSE PRI 
NT r<us! 

1310 nuis=nui6+l: NEXT: T AGOF F 
1320 LOCATE 12,18 
1330 INK 1,0 

1340 WINDOW #3,28,39.22,24:PAPER 13 
,1:CLS #3:WINDDW #2,27,38,23,21:BAP 
Efi #2,3:CLS #2:PEN #2,l:WIND0W #4,2 
5,40.4,6:PAPER #4,1:CLS #4:PEN #4,3 
'.mum 15,25,40,8,10:PAP£ft 15,1: CL 
5 #5:PEN #5,3 

1350 PEN tl,l:FUR 1=1 TO 4:L0CATE t 
1,x(i),y<ij:PRINT #l,flt(i):NEXT 
1360 RETURN 

1370 rem mmtmmnnmmm 

t 

1380 REM * RESPOESTA DEL JU6A0UR 

i 

1400 LOCATE #6,3,2:PRINl l6,"Nu*ero 
03 pala&ras"injp 

1410 LOCATE #6,3,4:F‘RINT tb/'Ralacr 
a riu»3Fo"';nop 

1420 LOCATE I4,1,2:PRINT #4,"COLUMN 
A (A-o) 

1430 LOCATE #S,1,2:PRINT #S,"fILft ( 
01-15) °! 

1440 PLOT 0,0,i:ORAWR 638,0:DRAUR 0 
,358:ORAWR -2S6,0:0RAVR 0,-304:0RAW 
R -382,0:DRftWR 0,-96:'RLOTR 382,96: 
ORAUR 256,0 
1450 bft=0 
1460 tb=TIM£ 

1470 GOSUB 1890 

1480 EVERY 50,3 GuSUB 1890 

1490 AFTER 1000,2 GOSUB 1950 

1S00 f=0:UHIL£ €f<i UR f>15) AND bf 

t=0 

1510 f$=UPP£R$(INK£YI) 
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1520 f=A$C(fi+CHRt(0))-64 

1530 WEND 

1540 PRINT #4,ft 

1-550 £=0:WHIL£ {£<1 Oft £>12) AND bf 
t=0 

1560 dt=":WHILE (cl$<“0“ DR dt>" 
1") AND bft=0:dt=UPP£fttaNKEY't):¥E 
ND 

1570 c2$=" J1 :UHILt (c2t<"0“ OR c2$>* 
3d AND bf t=0:t 2$=UPR£fttfINKEYt):¥£ 
ND 

1580 c=VAL«dt)dO+VAL(c2t) 

1590 WEND 

iwO if c<lO THEN ct= 8 O s +kIi)Rit(Sift 
tfd.l) ELSE £t=ftIGHit<STfttf£),2) 
1610 IF c>0 TH£N PRINT tS,ct; 

1620 c3t="":¥HIL£ fc3t<CHfitf240) OR 
c3$>CHR$(243)) AND bft=0:c3$=DPP£R 
t(INKEYt):WEND 

1630 IF c3t<>"" AND bft=0 THEN dir= 
ASC(c3t!-239:P£N #i,3:LDCAT£ ll.xfd 
ir),y(dir):PRINT tl,flt(dir) 

1640 c r1=REMAINf 3 ):£f2=REMAIN<2) 
1650 RETURN 

1660 REN $l!**i**3;*i$Stjq(;*S**t*i**it 
** 

1670 Rtf! * CDMPRUEBA LA RESCUES! A 
$ 

1680 REM *******.******************* 

u 

1690 IF f=x AND c=y AND dir=tf THEN 
FDR i=400 fO 200 STEP -1ISOUND i,i 
,1:NEXT:PRINT 1 PRINT TA8(8)CHR$«175) 
“COfifttC fu!*:na s na+1:GOTO 1720 
1700 IF bft=l Then PRINT:PRINT TAB< 
5i"£STA8A EN ";CHfit(&4+x);"-":ft!SHr 
t(ST Rtf y),LENT ST Rtf y)>-i)!* "?CHRtf 
239+cf) ELSE FOR i=200 TD 400:SOUND 
1,i,1INEXTI PRINT:PRINT TAB«3)"ERR0 
R:£STA £N "jCHftt{£4+x)j“-"RIGHTtfSf 
Rtfy),LENfSTRtfy5 M>;" "|CHRtf239+ 
cf > 

1710 nf=nf+l 

1720 FOft wx=x TO nx STEP SGNfslxKF 
OR wy=y TD ny STEP S6N<siy):TA6:PLB 
T vfxJ20,399-»yi20,3:PfiINT »p$(«x,vy 
);:FDR rr=l TD 200:NEXT:NEXT:NEXT:! 
AGOFF 

1730 RETURN 

1740 rem ***************** 

1750 REM * PuRCENTAJES * 

1760 ft£M ***************** 

1770 FDR ret=l TD 2000:NEXT 
1780 MODE l:INK 0,13:e0ft0Eft 13:INK 
1,0:INK 2,24:INK 3,22:PLD! 0,0,i:DR 
AWR 638,0:DRAWS 0,338:DRAWS' -638,0: 
DRAWR 0,-398 

1790 IF na=0 THEN LOCATE 5,7:PRINf 
"ND HA ENCDNTRADD NIN6UNA PALABRA" 
ELSE LOCATE 3,7:PRINT "HA ENCONffiAO 


D";nai"PALABRA*i:IF na>l THEN PRINT 

BC-Jf 

1800 IP nf=0 THEN LOCATE S,9:PRINT 
"NO HA FALLAOO EN NIN6UNA PALABRA" 
ELSE LOCATE 9,9:PRINT "HA FALLADD E 
N"jnfj"PALASftA"5:IF nf>1 THEN PRINT 

1810 LOCATE 7,13:PRINT "PDRCENTAJE 
0£ ACIERTOS:*5RDUNOfna*100/njp)!:PR 
INI "V 

1820 LOCATE 7,i5:PftINT "PDRCENTAJE 
D£ EfifiORES :“!ROUNDf nf *1SO/rcj p);:PR 
IN! 'T 

1830 WINDOW #7,10,31,21,23:PAF‘ER *7 
,i;P£N #7,2:005 #7:LOCATE #7,2,2:PR 
IN! #7,CFiR*( 1?4)i"JUE6A DTRA PART ID 
A?" 

1840 PlDT 9*16,32,3:DRAWR 22*16,0:0 
RAWR 0,48:0RAWR -22*16,0:0RAWR 0,-4 
8 

i860 RETURN 

1860 rem **************** 

1870 RtM * CSDNOMETRO * 

1880 REM **************** 

1890 tt=riK£:tit=RI6HrtfSTRtfIN ff(t 
t-to)/300>),2):it Ltfit(iii,ii=® 8 
THEN tit="0'+RI6HFt(iit,i) 

1900 LOCATE #2,6,2:PRINT #2,tit 
1310 RETURN 

1920 REM ******************** 

1330 REM * FIN DEL TIENPO * 

1340 REM ******************** 

1950 £r 1=fi£HAIN(3):cr2=R£MAIN(2):bf 
t=l:FDR sd=l TO 26:BORDER sd:SOUND 
l,sd*!0,10:FOfi t=l TO 100:NEXT:NEXT 
:BORDER 13:RETURN 

i960 REM ************************** 


*************** 

1370 REM * CDLUCA PALABRA OE 12QUIE 
RDA A DERECHA * 

1380 REM ************************** 
*************** 

1330 x=IN f(RND*15+1):y=INf(RND*12+1 
) 

2000 IF x+l)15 THEN 1330 
2010 FDR xx-0 fu 1-1 
2020 fsptf x+xx, y) =M.IDt(pt, xx+1,1) 
2030 NEXT 

2040 slx=l-l:nx=x+slx:ny=y:sly=l 
2050 RETURN 

2060 REM ************************** 
*************** 

2070 REM * CDLOCA PALABRA DE DERECh 
A A IZQUIERDA * 

2080 REM ************************** 
*************** 

2090 x=INTfRNDtl5+1)Iy=INI(RND*12+1 
;> 

2100 IF X-Kl THEN 2090 
2110 FDR xx=l-l ID 0 STEP -1 


Serie 

ao 


2120 «pt(x-xx,y)=MIDt(Dt,xx+l,l) 
2130 NEXT 

2140 slx=-l+l:j5x=x+slx:ny=y:sly=l 
2150 RETURN 

2160 rem tmntnmnxmnmnt 
********** 

21/0 REM * CDLUCA PrlABRA DL ARRIBA 
A A8AJD * 

2180 REM ************************** 
********** 

2190 x=INT(RND*15+1):y=INT(RND*12+1 

i 

2200 IF y+I>12 THEN 2190 
2210 FDR yy=0 TD i-1 
2220 spt(x,y+yy)=MIDtf pt,yy+1,1) 
2230 NEXT 

2240 sly=l-l: ny=y+sly: nx=x:six=! 
2250 RETURN 

2260 REM ************************** 
********** 

2270 REM * CDLUCA S'AlABRA DE ASAJU 
A ARRIBA * 

2280 REM l******m***t*«t*x***m 
********** 

2230 x=I NT f RND* 15+iKydN’f RND* 12+1 

) 

2300 IF y-Kl THEN 2290 
2310 FuS yy-i-1 TD 0 S‘tP -1 
2320 iBptfx,y-yy)=MID»fpt,yy+i, I) 
2330 NEXT 

2340 s1y=-I+1:nysy+sIy:nx=x:sIx=1 


Para que tus 
dcdos no rcalicen 
cl trabajo duro, 
AMSTRAD 
Semanal lo hacc 
por ti. Todos los 
listados quc 
incluyan cstc 
logotipo sc 
cncucntran a tu 
disposicion cn un 
cassette mcnsual, 
solieftanosio. 
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INFOBrTES 



<iDiga...? 

— ^Es el Amstrad 

PC/CPC/PCW (tachese lo que 
no proceda) de . 

(a rellenar por el propietario)? 

—El mismo, ^que queria? 

—Vera, soy el ordenador de 
un amigo de su jefe que me ha 
pedido que le mande el fichero 
de datos correspondiente a la 
ultima revision del programa de 
inventarios. 

—jAh, si! Le estabamos 
esperando. 

—Es que llevaba media hora 
comunicando la lfnea y hasta el 
momento no lo habfa 
conseguido. 

La estrella 
de la escritura 

En impresoras matriciales, la 
marca Star ha tenido siempre 
un gran prestigio. Para esta 
ocasion os presentamos el 
modelo Gemini 10X capaz de 
escribir a una buena velocidad 
de 120 caracteres por segundo. 
Dispone de un buffer de 
impresion de 816 caracteres, 
ampliables opcionalmente a 4 K 
o 8 K. Entre su amplio surtido 
de tipos de letra podemos 
destacar la normal (diez 
caracteres por pulgada), elite 
(doce cpp), comprimida 
(diecisiete cop), expandida 
(cinco cpp), enfatizada, doble 
picada, italica etc. 
juego de 96 caracteres ASCII, 
otros tantos en italica, 64 
especiales y 32 de graficos. Se 
sirve tanto con conector paralelo 
como serie y es totalinente 
compatible con los ordenadores 
CPC de Amstrad. Sobre la base 


—-Ya. Sera el jefe que da 
prioridad a las conversaciones 
humanas. Bueno, pues manos a 
la obra, listo para recibir a 300 
baudios. 

—Listo para transmitir: 

100011101011011... 0100111101110. 

—Paquete recibido. Listo para 
recibir siguiente paquete 
(protocolo). 

—Enseguida: 

011101110101110000111... 1001101100 
1110011. Fin de transmision 
fichero de datos. 

—Recepcion concluida. 

Errores en la comunicacion = 0 
por 100. 

—Perfecto. No sera necesario 
repetir la transmision. Perdone 


10X tambien existe una version 
con juego de caracteres para PC 
y otra con carro grande 
— 15X— para escribir a 136 
caracteres normales por lfnea. 


mi curiosidad camarada 
Amstrad. iQue ha utilizado 
para modular-demodular la 
llamada telefonica? 

—Un dispositivo modem por 
acoplamiento acustico de la 
marca Cat Novation, que ha 
encontrado mi jefe en Comercial 
Nuevos Ministerios, en la 
estacion RENFE de la calle 
Raimundo Fernandez Villaverde 
de Madrid, al precio de 35.000 
pesetas. Trasmite y recibe en 
norma standar europea CCITT 
V-21 (300 baudios) y se conecta 
al interface RS-232-C. Cuenta 
con modo Llamada y Respuesta, 
seleccionable mediante 
interruptor externo e indicador 
de Comunicacion establecida 
mediante luz roja. No sobrecarga 
la alimentacion de mis circuitos, 
ya que dispone de fuente de 
alimentacion independiente. 

—Se lo recomendare a mi 
jefe. Pues nada mas, camarada 
Amstrad, espero que en la 
proxima ocasion me pase aquel 
simulador de vuelo del que 
hablaron nuestro jefes. 

—Lo tendre en cuenta. Hasta 
la proxima. 

—Adios. 


La encontrareis en Master 
Computer, Plaza de Cristo Rey, 
3, esquina a Cea Bermudez 
28015 Madrid al precio de 
89.000 pesetas. 
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Trazando en 
color 

R.ecomendado para su 
utilization en el Amstrad PC 
1512, ya que dispone de 
conector paralelo Centronic de 8 
bits (los de la serie CPC tienen 
Centronic de 7 bits) es este 


plotter Sekonic SPL 410 con seis 
rotuladores de diferentes 
colores. Permite dibujar en un 
area efectiva de 385 x 280 mm 
(papel tamano DIN A3 o 
menor) con una velocidad 
maxima de trazado de 420 
mm/seg. El cambio de color se 
puede realizar a traces del 
software, desde el mismo 
ordenador, o bien pulsando una 
tecla en el plotter. Para 
aplicaciones mas tecnicas se 
incluye ademas un adaptador 
para utilizar Rotring de tinta 
china. 

Su precio en Peek & Poke, 
Genova, 11. 28004 Madrid 
(Tel. 419 81 00) es de 156.800 
pesetas. 




Autodidacta 

Para conocer el sistema 
operativo MS-DOS del 
Amstrad PC 1512 o bien optas 
por estudiarte a fondo el libro 
de instrucciones, o bien te 
decides por seguir uno de estos 
cursos en software que editan 
Logic Control y Turgeon y que 
podeis encontrar en Master 
Computer, Plaza de Cristo Rey, 
3, 28015 Madrid. A1 precio de 
5.490 pesetas cada uno. 

Ambos cursos, explican 
Lecciones teoricas y tras cada 
leccion realizan un test practico 
para medir los conocimientos 
adquiridos por el future 
programador. 




Variedad 

Aqul teneis una buena muestra 
de la variedad de discos de 5 
1/4 pulgadas en doble cara y 
doble densidad que se ofrecen 
en Informatica Papeleria Plaza 
de Castilla, junto al Asador. 

De izquierda de derecha: el 
disco Esseite por 225 pesetas 
unidad, seguido del Precission 
(220 pesetas), Verbatin (225) y 
Nashua (225). Todos ellos 
tarn bien se sirven en cajas de 
diez unidades. 
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A vueltas 


con 


icos 


Por: Alberto Suner 


Las imageries son siempre algo 
atractivo, mucho mas si logramos 
que nuestras propias creaciones se 
muevan sin tener que hacer mil 
operaciones complicadas o definir 
los graficos en cada una de sus 
posiciones. 

E 

-■ n el presente capftulo veremos una rutina 
que se encargara de realizar esta tarea. Podremos 
girar un grafico hasta en cuatro posiciones 
distintas. De esta forma, si nosotros tenemos una 
imagen en la posicion inicial, al ejecutar nuestra 
rutina la obtendremos girada en 90°. 

Una vez hecho esto, arrancamos de nuevo la 
rutina y obtendremos sucesivamente el mismo 
dibujo, pero esta vez con un giro de 180 y 270° 
con respecto al original. 

Como siempre que hablamos de graficos, y 
dadas las diferentes estructuras de pantallas que 
posee el Amstrad, debemos hacer algunas 
aclaraciones. 

Asf pues, nuestra rutina funcionara 
correctamente solo con graficos realizados 
expresamente para el modo 2 de pantalla, en el 
cual todos los bits que componen cada uno de los 
bytes contienen informacion de pixels encendidos 
o apagados, sin tener en cuenta el color. 

En los graficos realizados para los demas 
modos de pantalla, el programa no funcionara, 
ya que los bytes que componen dicho tipo de 
graficos contienen informacion sobre el color con 
el que deben ser imprimidos, lo cual dificulta 
enormemente la operation de giro. 

Debemos tambien apuntar que la rutina esta 
preparada para funcionar con graficos compuestos 
de ocho bytes, es decir, con graficos semejantes a 
caracteres definidos por el usuario. 

Se ha hecho de esta forma para que esta rutina 
sea utilizable, tanto por aquellos que usan 
bloques graficos como para aquellos que prefieren 

i<> WtSTRM) \/ man a! 
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Javier Igual 



Codigo 

MA3UINA 


los graflcos deflnidos por el usuario. 

De cualquier forma, esta rutina puedc ser 
modificada de raanera que sea utilizable para 
bloques de cualquier dimension, realizando los 
cambios oportunos en el bucle principal del 
programa. 


Metodo de trabajo 

Para conseguir el giro de los graflcos en 
cualquier direction debemos tomar el bit 7 del 
primer byte y colocarlo en el bit 7 del octavo 
(ultimo) byte. El bit 6 del byte numero uno debe 
colocarse en el ultimo bit del byte septimo, y asf 
hasta llegar al bit uno del primer byte, que 
debera colocarse en el bit 7 del mismo byte 

Seguidamente, empezaremos a colocar 
ordenadamente los bits pertenecientes al segundo 
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byte de nuestro grafico. Pondremos el bit 7 de 
dicho byte en el sexto bit del ultimo byte. El bit 
6 del segundo byte, en el bit 6 del byte 7, y asf 
sucesivamente, hasta colocar el bit 0 del segundo 
byte en el bit 6 del primero. 

Despues de este trabalenguas, deberemos 
ejecutar la operacion con los ocho bytes cjue 
componen nuestro graflco, colocando cada uno de 
los bits en las posiciones correspondientes. 

Su realizacion seria como se representa a 
continuation: 

Graflco inicial Graflco final 

1 2 3 4 5 6 7 8 57 . 1 


57 58 59 60 61 62 63 64 64 . 8 

En el graflco anterior los numeros del 1 al 64 
representan los 64 bits que forman los ocho bytes 
que componen nuestro graflco. De esta forma, si, 
por ejemplo, tomamos el graflco correspondiente 
a la letra «A», este quedarfa de la siguiente 
forma, una vez producido el giro: 


00011000 
00100100 
01000010 
01000010 
01111110 
01000010 
01000010 
00000000 
Graflco inicial 


00000000 
01111100 
00010010 
00010001 
00010001 
00010010 
11111100 
00000000 
Graflco girado 


Funcionamiento de la rutina 

Las dos variables principales que utiliza el 
programa deben apuntar a dos buffers distintos: 
uno de ellos debe contener el graflco inicial y el 
otro debe reservar un espacio para colocar el 
graflco girado. 


BUFLET.Direccion del grafico. 

BUFFER . Espacio reservado para el 

graflco final. 


Asf pues, debemos cargar el registro doble DE 
con la direccion donde se encuentra nuestro 
graflco (BUFLET) y el registro L1L con la 
direccion del espacio reservado para colocar el 
graflco una vez girado. 

LD DE,BUFLET 
LD HL,BUFFER 

Seguidamente, entramos en un bucle en el cual 
se iran tomando los ocho bytes que componen la 
imagen, para entrar mas tarde en otro, donde se 
moveran los ocho bits de cada uno de dichos 
bytes. 

En este ultimo es donde se realiza realmente el 
trabajo de modificacion de nuestro graflco. 

Antes de entrar en el mismo, deberemos cargar 
en el acumulador el contenido del byte 


correspondiente al grafico, al cual se apunta a 
traves del registro doble DE. 

LD B,8 

LD A,(DE) 

Seguidamente, rotamos el acumulador hacia la 
dere.cha, consiguiendo de esta forma colocar el bit 
0 en el Carry, para mas tarde traspasarlo a la 
direccion de memoria apuntada por HL (indica 
el espacio reservado para el grafico final), 
median-te una rotacion a la izquierda de dicho 
registro doble. 

NUD3: RRA 

RL (HL) 

INC HL 
DJNZ NUD3 

Por ultimo, incrementamos el registro DE y se 
vuelve a ejecutar el bucle, tomando el siguiente 
byte correspondiente al grafico inicial. La rutina, 
tal como esta planteada, lo gira 90° hacia la 
derecha, con lo cual ejecutandola sucesivamente 
conseguiremos otra vez el inicial. 

Con la misma estructura de nuestro programa, 
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se podrfa conseguir efectuar este giro, pero hacia 
la derecha, consiguiendo girar el grafico initial 
tambien 90°, pero esta vez en sentido contrario a 
las agujas del reloj. 

Para aquellos que deseen confeccionar una 
rutina similar, pero para girar bloques de 
mayores dimensiones, se debe tener en cuenta 
que, en primer lugar, hay que transformar todos 
los bytes que componen la primera fila 
horizontal; una vez hecho esto se debera pasar a 
la siguiente linea, hasta llegar a la ultima. 


Grafico espejo 


A continuation vamos a comentar otro tipo de 
giro que nos puede resultar interesante a la hora 
de trabajar con nuestros dibujos. 

Se trata de girar un grafico de forma 
que se obtenga su imagen reflejada en 
un espejo. Para un byte cualquiera, 
quedarfa de la siguiente manera: 


Godigo 

M/OJINA 


De la misma forma podrfamos conseguir la 
imagen especular de bloques graficos de mayores 
dimensiones. 


PROGRAMA 

ENSAMBLADOR 


10 

ORB 

IA0O0 

20 

L0 

0E,BUFLET 

30 

LD 

HL,BUFFER 

40 

LD 

8,8 

50 NUD4: 

PUSH 

BC 

60 

PUSH 

HL 

70 

LD 

B,8 

80 

LD 

A,(DE) 

30 NUD3: 

RRA 


100 

RL 

(HD 

110 

INC 

HL 

120 

DJNZ 

NUD3 

130 

POP 

HL 

140 

INC 

DE 

150 

POP 

BC 

160 

DJNZ 

NUD4 

170 

RET 


180 BUFFER: 

DEFS 

8 

190 BUFLET: 

DEFB 

255,0,0,0,0,0,0,0 

200 -IL+ 



210 

DEFS 

0 


oxxoooox xooooxxo 

Grafico inicial Grafico espejo 

El siguiente programa consigue este mismo 
efecto para un byte: 

LD A,(HL) 

CPL 

LD (HL),A 

Suponiendo que el registro doble HL apuntara 
a la direccion del grafico, cargarfamos el 
contenido de dicha direccion en el acumulador, 
efectuarfamos su complemento y lo cargarfamos 
en dicha direccion de memoria de nuevo, pero 
esta vez ya modificado. Asf pues, si desearamos 
transformar un grafico compuesto por ocho 
bytes, deberfamos hacer: 


LD HL,GRAFICO 
LD B,8 

BUC: LD A,(HL) 

CPL 

LD (HL),A 
INC HL 
DJNZ BUC 
RET 


PROGRAMA CARGADOR 

10 FCF; N=&fi000 TO &A029 
20 READ A:SUKA=SMA+A 
30 POKE N,A 
40 NEXT 

SO IF SUHAO&A36 THEN PRINT “ERROR EN DATAS' 

60 DATA 17)33,160,33,25,160,6 

70 DATA 8,137,229,6,8,26,31 

80 DATA 203,22,35,16,250,225,19 

90 DATA 133,16,240,201,0,0,0 

100 DATA 0,0,0,0,0,255,0 

110 DATA 0,0,0,0,0,0,0 
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La informacion 
y su 

representation 

Dentro de la serie Informatica 
en el aula de la Editorial 
Alhambra, nos aparece este 
libro que encaja perfectamente 
en el marco de la ensenanza de 
uno de los aspectos teoricos mas 
importantes del ordenador, en 
el cual descansan todas sus 
realizaciones practicas: la teorfa 
de la informacion. En efecto, 
sin esto, probablemente no 
habria ordenadores, aunque tal 
disciplina se haya enriquecido 
considerablemente, gracias a las 
aportaciones de los practicos. En 
palabras del propio autor: «E1 
objetivo central de este libro es 
la teona de la informacion. su 
representation, soporte, 
estructura y codificacion, en el 
marco de los sistemas de 
procesamiento de la 
informacion. que conocemos 
con el nombre generico de 
ordenadores®. Bien, creemos 
que queda clara, tanto la 



funcion como el tono del libro. 
Es un libro que va dingido a 
tecnicos o a educadores, y su 
lenguaje no es especialmente 
divulgativo. Hay que reconocer, 
sin embargo, que la exposicion 
rigurosa y de alto nivel de un 
tema de este calibre esta renida 
con todo tipo de licencias 
artfsticas. Creemos que la obra 
es de gran valor para el 
maestro, estudiante o 
especialista del tema, pero tal 



vez. para los simplemente 
curiosos, el autor escale cimas 
demasiado elevadas. 


Ficha tecnica 


Titulo: 

La informacion su 


representacion 

Autor: 

Ignacio Rierio 

Editorial: 

A lhambra 

Paginas: 

318 

Ereeio: 

975 


Programacion 
en Pascal. 
Turbo Pascal 


una de las estructuras de datos 
mas comunes y utiles para una 
aplicacion es la gestion de listas 
encadenadas y la asignacion 
dinamica de metnoria. 


acionen 


PASCAL 

TURBO PASCAL 


Rydnay Zaks 



El autor ha cuidado 
especialmente el tema, haciendo 
hincapie en la forma mas 
eficiente de gestionarlas desde el 
particular punto de vista del 
Turbo Pascal. Creemos estar 
ante un buen libro que va a ser 
util a todo el mundo. 


Si en el mundo de la 
informatica hay un estandar, se 
llama IBM. 

Analogamente, si existe un 
consenso en los lenguajes de 
programacion para ordenadores 
de este tipo, se llama Turbo 
Pascal. Con mas de 400.000 
copias vendidas en 1985, el 
Turbo se ha convertido en un 
producto con el que hay que 
contar, y a esa realidad 
responde este libro. Esta todo lo 
que hay que saber acerca del 
Turbo Pascal. El autor ha 
tenido el buen sentido de 
escalonar la profudidad de sus 
explicaciones, de forma que, 
tanto el recien llegado al Turbo, 
como el profesional del 
compilador puedan extraer un 
provecho definitivo de sus 
paginas. Hasta tal punto se ha 
tenido esto presente en la 
redaccion del libro, que los 
primeros capitulos podrfan 
llamarse con toda justicia una 
introduccion a las peculiaridades 
del lenguaje Pascal, asi, en 
abstracto. Por otra parte, todos 
los programadores saben que 


Ficha tecnica 

Titulo: Programacion en 

Pascal. 

Turbo Pascal 

Autor: Rodnay Zaks 

Editorial: Anaya Multimedia 

Paginas: 4 78 

Precio: 3.180 _ 


NECESITAM0S personas 

que conozcan profundamente 
lenguaje ensamblador del Z80 y 
dominen los ordenadores Amstrad 
CPC desde el punto de vista del 
Lenguaje Maquina 

Si usted es uno de ellos pongase en 
contacto con nosotros rapidamente 
en la direccion que se indica a 
continuacion, poniendo en lugar 
muy visible del sobre. 

Referenda 
Codigo Maquina 
AMSTRAD Semanal 
IMuestra direccion es. 

AMSTRAD Semonol 

Carretera de I run, km 12,400. 
Fuencarral. 28049 Madrid. 
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(Si lo deseas puedes suscribirte por telefono (91) 734 65 00) 


SOUCITA NUMEROS ATRASADOS, CINTAS SERIE ORO Y TAPAS 

□ Si, deseo recibir en mi domicilio las cintas que a 
continuation indico, al precio de 756 ptas. cada una. Cada cinta lleva 
grabados los programas publicados poi AMSTRAO SEMANAL durante 
cuatro numeros consecutivos (1 al 4, 5 al 8, 9 al 12, etc.) 

Las cintas que deseo son: 

Numeros__ aL Numeros_al_ 

Numeros_al Numeros_al_ 


□ Deseo recibir en mi domicilio los siguientes numeros atrasados de 
AMSTRAD SEMANAL, al precio de 190 pts. cada uno. 


(Se encuentra agotado e) n.° 4) 

□ Deseo recibir en mi domicilio las tapas para conservar AMSTRAD 

SEMANAL, al precio de 850 pts. (No necesita encuadernacion). 
Nombre Fecha de Nacimiento 

Apellidos_ 

Domicilio__ 

Localidad Provincia 

C. Postal . Telefono_ 

(Para agilizar tu envi'o, es importante que indiques el cddigo postal) 
Formas de pago 

□ Talon bancario adjunto a nombre de Hobby Press, S.A. 

□ Giro Postal a nombre de Hobby Press, S.A., n‘ 

□ Contra reembolso (supone 125 pts mas de gastos de envfo y es 
valido solo para Espana). (Excepto cintas.) 

□ Tarjeta de credito n? DDDD DDDD DDDD DDDD 
(Solo para pedidos superiores a 1.500 pts.) 

Visa □ Master Card □ American Express □ 

Fecha de caducidad de la tarjeta_ _ 

Nombre del titular (si es distinto)_ 

Fecha y firma 


RECIBE 


FABULOS AMSTRAD 

PROGRAM encasa 


Deseo suscribirme a la revista AMSTRAD SEMANAL por un ano 
(50 numeros), al precio de 7.950 pts. Esta suscripcion me da derecho 
a recibir, totalmente gratis, los dos ultimos exitos de Dinamic ARMY 
MOVES y GAME OVER (oferta valida solo para Espana). 
Nombre Fecha de Nacimiento 

Apellidos_ 

Domicilio_ 

Localidad _ 

C. Postal 


Provincia 

Telefono 


(Para agilizar tu envio, es importante que indiques: el codigo postal) 
Formas de pago 

□ Talon bancario adjunto a nombre de Hobby Press, S.A. 

□ Giro Postal a nombre de Hobby Press, S.A. n? 

□ Contra reembolso (supone 125 pts. mas de gastos de envfo y es 
valido solo para Espana). 

□ Tarjeta de credito n° DC 1DD DDDD DUDD DDDD 
Visa □ Master Card □ American Express □ 

Fecha de caducidad de la tarjeta_._ 

Nombre del titular (si es distinto) 

(Si pago con la tarjeta de credito, recibire un numero mas de regato). 

Fecha y firma 


No se admiten solicitudes de cintas contra reembolso 


















































Benefkiate de las venfijas 
de la tarjeta de credifo. 

Un numero mas, gratis, 
en tu suscripcion y la posibilidad 
de realizar el page aplazado. 


ARMY MOVES 

Como miembro de! Cuerpo 
de Operaciones Especiales, 
Dendhal ha sido adiestrado 
en varios sistemas de 
combate distintos, ess como 
en e! manejo de todas las 
armas, explosivos y 
tecnicas de guerra en la 
selva. Ahora, tras largos 
afios de entrenamiento, le 
ha llegado el momenta de 
demostrar sus habilidades 
y atravesar, por tierra, 
mar y aire, las tineas 
enemigas. jLo conseguird? 

GAME OVER 

Los problemas de libertad 
existen haste en las mas 
lejanas galaxias. Si no, 
que se to digan a los 
habitantes del planeta 
Porshaco, quienes estan 
sufriendo en sus cames 
viscoses la tirania de la 
princesa Gremla. 
Afortunadamente, Arkos, el 
mas habit de todos los 
mega-terminators, ha 
decidido acabar con este 
juego,- afortunadamente 
para nosotros, comienza 
Game Over. 
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GRATIS 


Suscribete boy mismo a 
AMSTRAD y redbirds a 
vuelta de correo los dos 
mayores exitos de 
Dinamic 
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Beneficiate de las venfagas 
de la tarjeta de credito. 
Un numero mas, gratis 
en tu suscripcion y £a posibilidad 
de realizar el pago aplazado 


FABUIDSOS 


PROGRAMAS 


PARA 


Suscribete hoy mismo a 
AMSTRAD y recibiras a 
vuelta de correo los dos 
mayores exitos de 
Dinami 


ARMY MOVES 

Como rriembro del (oerpo 
de Operates Especiales, 
Dendhal ha sido strado 
en varios sistemas de 
combate distintos, asi como 
en el manejo de todas las 
armas, explosives y 
teenies de auerra en la 
selva. Ahora, tins largos 
arios de entrenamiento, le 
ha llegado el momenta de 
demostrar sus hnbidades 
y atravesar, por tierra, 
mar y aire, los lineas 
enemigas. jLo tonseguira? 

GAME OVER 

Las problemas de liertad 
existen hash) en las mas 
lejanas galaxias. Si no, 
que se lo digan a los 
habitantes del ploneta 
Poishaco, quienes estan 
sufriendo en sus comes 
viscoses la tirania de la 
princesa Gremla. 
Afortunadamenta, Ariros, el 
mas habil de todas los 
mega-terminators, ha 
decidido acobar con este 
juego,- afortunadamenta 
para nosotros, comienza 
Game Over. 
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